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PREFACE 



This manual describes the APL 2 system, an implementation of 
the APL language available under the 1J0S operating system. The 
APL language had its origins in the book A Programming Language 
(John Wiley & Sons, New York, 1962) by Kenneth E. Iverson. 
Because a single line in APL typically expresses what would 
require many lines in other languages, programs can be written in 
APL in a fraction of the time x^ith less chance of error. The 
programs that result tend to be easier to use and easier to 
extend. 

Primary objectives in the design for the APL 2 system were: 
to achieve a very high level of performance, to provide a 
flexible file system, to incorporate system functions and 
variables, to provide all system command capabilities to 
user-defined functions, and to allow all workspace areas 
(including the symbol table and file buffers) to change size 
dynamically according to changing needs. The storage management 
scheme was designed to anticipate future extensions of APL to 
allow list structures. 

The APL 2 system, formerly named APLUM, was developed under 
the direction of James H. Burrill at the University Computing 
Center of the University of Massachusetts. (The APL 2 system 
accepts files and workspaces produced by the APLUM system with 
full compatibility.) This manual is a Control Data adaptation of 
the APLUM Reference Manual (second edition, 1975) by Clark 
Wiedmann. The following programmers also participated in the APL 
2 system development: Rick Mayforth, Sheldon Gersten, Brian 
Arnold, Jeff Dean, Judy Smith, Bob Weinberger, and Ira Greenberg. 
In addition, Pat Driscoll and Wendy Mayfield assisted with 
documentation. Development of APLUM and APL 2 was supported in 
part by a grant from Control Data Corporation. 
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Note that this manual is organized as a reference manual, 
not as a teaching manual. The intent is to accurately describe 
the APL 2 system, but not to teach APL to the novice. A reader 
who lacks familiarity with the APL language is advised that it is 
much easier to learn APL from an introductory text rather than 
from a reference manual such as this. 

The following manuals contain information concerning the NOS 
operating system: 

Control Data Publication Publication No . 

NOS version 1 Time-Sharing User's 

Reference Manual 60435500 

NOS Version 1 Time-Sharing User's Guide 60436400 

NOS Version 1 Reference Manual, Volume 1 60435400 

Network Products Interactive Facility 

Version 1 Reference Manual 60455250 

Network Products Interactive Facility 

Version 1 User's Guide 60455360 



This product is intended for use only as 
described in this document. Control Data 
cannot be responsible for the proper 
functioning of undescribed features "or 
parameters. 
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Section 1. A Sample Terminal Session 

This short introduction to APL shows a sample terminal 
session from the time of logging on until the time of logging 
off. This section attempts to emphasize some of the important 
facilities of APL, and attempts to show the dynamic nature of 
APL, which may not be evident from the following sections. 

LOGGING ON 

The first step is to establish a telephone connection 
between the terminal and the computer. This procedure varies 
somewhat according to the type of terminal used. Further 
information about telephone numbers, types of terminals that are 
supported, passwords, accounting procedures, and restrictions 
placed on use of computer resources can be obtained from 
personnel at the computer installation. The following discussion 
assumes that an acoustic coupler will be used, that NAM/IAF (with 
auto baud) is used as the communications processor, and that the 
terminal is an ASCII terminal capable of printing the APL 
symbols. Terminals not able to print the APL character set can 
be used, but they are much less satisfactory for program 
development, although they may be satisfactory for entry of data 
or transactions . See Appendix C for further information about 
terminals, and see Appendix F for special instructions for 
installations not using NAM/IAF. 

1. Turn on the terminal and the coupler (sometimes one 
switch activates both) . Dial the phone number for the 
computer. You should soon hear a high-pitched tone 
indicating the computer has answered the phone. Place the 
telephone handset in the acoustic coupler. Usually, one end 
of the acoustic coupler is marked "cord" to indicate which 
end of the telephone handset should be placed there. It is 
important to match the correct ends. 
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2. When the connection to the computer has been completed, 
press the RETURN key (possibly labeled CR, CAR RET, or 
CARRIAGE RETURN) . When you press RETURN, the paper should 
instantly advance two lines. If it does not advance, press 
RETURN again. After the system responds, type ) and press 
RETURN again. Note that you should be using the APL 
character set at this point, so the right parenthesis you 
use is the APL right parenthesis. It should print as a 
right parenthesis. 

3. The system will reply with three lines which appear 
something like the following 

76/05/07. 14.12.44. 3'lP20'+7 

CDC MULTI-MODE OPERATING SYSTEM NOS 1.3 485/485 

FAMILY : 

The first line is the current date given in year/month/day 
and the current time given in hours. minutes. seconds. The 
second line is the identifying header of the installation 
which may give the installation name, the operating system, 
and the version of the operating system. The third line is 
a request for a family name if the installation has divided 
its mass storage devices into families. Respond by entering 
the name of the family to which you are assigned and press 
RETURN. If your family is the default family name for the 
system you only need to press RETURN. 

The system will then request your user number. If 
family names are not required, the request for a family name 
is omitted and the request for a user number is the second 
line you type in the log-in sequence. This request is: 

USER NAME: 
Respond by entering your account name and pressing RETURN. 
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The system will then reply with: 

PASSWORD 



The second line results from the system overtyping a variety 
of characters to preserve password security. Type your 
password over the blackened squares and press RETURN. 

4. The system will respond by printing something like: 

TERMINAL 3 3 2,NAMIAF 
RECOVER /SYSTEM: 

The first line gives the terminal number assigned for this 
session. The second line invites you to either RECOVER 
(resume work that was in progress before a line disconnect 
or system malfunction) or specify the system you wish to 
use. Type APL in response. 

APL will respond with something like: 

APL2.0 76/05/07 16.29.12 
APLNEWS 76/05/06 
CLEAR WS 

The first line identifies the version of the APL system and 
the date and time when it was created. The message APLNEWS 
indicates when a news item about changes in the APL system 
was entered. To access news items, type 

)L0AD *APL1 APLNEWS 

The message CLEAR WS indicates that you have begun with a 
clear active workspace. 
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IMMEDIATE EXECUTION MODE 

You can now type APL expressions. What you type is 
evaluated immediately. For example, 

3+5 (You type this and press RETURN.) 
8 (This is the computer's response.) 

Pressing the RETURN key is your signal to the computer that you 
have finished typing the line. The computer will not process the 
line until you press RETURN. The expressions you type are 
interpreted as they appear on the paper. This is called the 
principle of visual fidelity. You can space forward or backward 
as much as you please as long as the final appearance of the 
paper is what you intended. (Visual fidelity is not preserved on 
terminals that do not print the APL character set.) 

If you make a typing mistake, you can correct the line by 
canceling the rightmost portion of the line and retyping. On an 
ASCII terminal you do this by backspacing to the first character 
to be changed and then pressing LINE FEED (possibly labeled LF on 
the keyboard) . The system responds by printing a pointer below 
that character and positioning the type element below that 
pointer. You can then continue typing as if only the symbols to 
the left of the pointer had previously been entered. To cancel 
the entire line, hold down the CTRL key while pressing X, then 
press RETURN. 

The following examples show some simple calculations being 
performed . 

2x3 



3-5-2 



1.5 



Note that the APL system indents six spaces before allowing you 
to type, but the system prints its response at the left margin. 
This clearly distinguishes what you type from what the computer 
types. The following example shows how arithmetic can be 
performed with several numbers at the same time 



2xl 2 3 4 

2 4 6 8 
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The series of numbers on the right is called a vector. Each 
element of the vector was multiplied by 2. 

Values can be given a name and saved for later use. The 
names are called variables. The process of giving a variable a 
value is called assignment. The following examples show 
assignment of values to variables A and b. 

B<-1 2 3 4 
A+B 
5.8 6.8 7.8 8.8 

ITote that when the result of a calculation is not assigned to a 
variable it is printed. The sum of the elements in a vector can 
be found as follows : 



B+-1 2 3 4 
+ /B 



10 



Any symbols on the keyboard can be used as values if they 
are surrounded by quotes. For example, 

GRADES*' ABADCABAABADB ' 

The = symbol can be used to compare values. The result is 1 
where a match is found and otherwise. For example, 

'A'=GRADES 
1010010110100 

The following example shows how a table of comparison values can 
be produced: 

'ABCD' °.=GRADES 
1010010110100 
0100001001001 
0000100000000 
0001000000010 

There is one row for each value in 'ABCD' and there is one column 
for each value in GRADES. To find the number of A's, B's, C's, 
and D's, add up the i's in the four rows as follows: 

+/('ABCD'o.=GRADES) 
6 4 12 

Below is an example of another comparison table using < instead 
of =. Aiso, instead of using +/ to add the rows as in the last 
example, +/ is used to add up the columns. The symbol /, called 
an overstrike, is formed by typing /, backspacing, and then 
typing -. (Actually the two symbols comprising the overstrike 
can be typed in either order.) 
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7-r2.\ 3.2 .08 8.1 4.6 1.2 2.3 4.2 1.6 

2 4 6 8° ,<7 
110110110 
000110010 
000100000 
000100000 

+/{ 2 4 6 8°.<7) 
110420 120 

As shown, this operation, classifies each value in V according to 
the number of values in 2 4 6 8 it exceeded. That is, a value 
between 2 and 4 is in class 1, a value between 4 and 6 is in 
class 2, and a value between 6 and 8 is in class 3, A user 
defined function can be written to perform this operation: 

VZ+-A CLASSIFY B 
Ll] Z++M°.ZBV 

The first V signals to the computer that you wish to define a 
function. The first line shows that the function takes two 
arguments (input values) and gives a result. The computer 
numbered the next line with Ll]. The V at the end indicates you 
have completed typing the lines of the function. The function 
can be used as follows : 

2 4 6 8 CLASSIFY V 
110420120 

How it might be interesting to tabulate how many 0's, l's, 2's, 
and so forth were in the last result. An APL function can be 
written to do this but it requires two more APL operations: The 
largest value in a vector V is given by l/Vy and xjt gives the 
integers i t 2 3 ... N. We use both of these as follows: 

VZ+TAB B 

lid x*-mr/B)+i) 

L 21 K+K-l 

TAB 10 12 13 

2 3 11 

TABK2 4 6 8 CLASSIFY 7) 

3 3 2 1 
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The following function will give a crude histogram of these 
results : 

VZ+HIST B 
[1] P-T/B 
[2] Z«-((P+l)-iP)°.<B V 

HIST 3 3 2 1 
110 
1110 
1110 1 

A neater histogram can be produced by adding another line to the 
HIST function: 

VHIST (Function definition is opened.) 

[31 Z-*-* D'CZ+l] (Another line is added.) 

[4] [D] (Display is requested.) 

? Z+HIST B 

m p+i/b 

[2] Zf-((P+l)-iP)».<B 
[3] Z+* D'[Z+1] 

V 
[4] v (Definition is closed.) 

Note that to add more to the function you first type v and the 
name (but not Z+HIST B) . The computer numbered the line [3]. 
Typing CD] on the next line caused the computer to list the 
function. Finally, the V was typed to indicate that no more 
lines were to be added. This function can now be used with the 
two others as follows : 

HIST TAB 2 4 6 8 CLASSIFY V 
DQ 

nan 
nan n 

You can display the names of defined functions and variables as 
shown below: 

)FNS 
CLASSIFY HIST TAB 

)VARS 
A B GRADES K P V 

To save the functions and variables for use at some other 
session, type 

)SAVE MY WORK 

The collection of functions and variables constitutes a 
workspace . Here a workspace named MY WORK was saved. It is 
advisable to save the workspace often if you are changing it in 
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order to minimize the amount of work that will be lost in the 
event of a serious computer malfunction. (See Section 13 for the 
procedure to follow to avoid losing work after a telephone 
disconnect or minor computer malfunction.) To remove all 
functions and variables from the workspace you are now working 
with , type 

) CLEAR 
CLEAR WS 

)FNS 



)VARS 



(Ho functions . ) 
(Ho variables.) 
You can retrieve the MYWORK workspace as shown below: 

)LOAD MYWORK 
MYWORK 75/08/08 16:18:28 

)FNS 
CLASSIFY HIST TAB 

To terminate the session and log off the computer, type )0FF. 

)0FF 
4123456 LOG OFF 18.12.07. 
4123456 SRU 2.774 UNTS . 

Although this sample session was short and only used a small 
fraction of the APL operations, it illustrates how well adapted 
APL is to experimentation. Programs can easily be developed in 
small parts and put together to do useful work. The flexibility 
in using functions in new combinations makes many problems much 
easier to solve. Many users of APL begin with the habit (formed 
by familiarity with other computer languages) of writing large 
monolithic programs in one piece. It should be evident that the 
modular approach illustrated above is better. 



1-8 60454000 A 



Section 2. User-Defined Functions 

Function definition mode allows the user to enter function 
lines one at a tine, remove lines, change lines, insert lines, or 
display the function. In function definition mode, APL 
statements entered are not executed or checked for errors, nor 
are system commands executed. Host errors will be detected when 
the statement is executed for the first time. System commands 
are illegal in the body of a function. Table 2.1 contains a 
summary of function definition. 

CREATING A FUNCTION 

To enter function definition mode, type V and the function 
header. The form for the function header should be determined by 
how the function is used. The six possible forms are shown in 
the following table. 

Number of Arguments 12 



No Result 
Result 



name name B A name B 

Z-^name Z-^name B Z-^A name B 



The name of the function (represented by name in the table 
above) can consist of any number of letters A to Z, underscored 
letters £ to Z_, digits to 9, or the symbols _, A, or a_, but 
must not begin with a digit. The function name must not be in 
use for another global function or global variable. In the 
table, Z is used as the result variable, A is the left argument, 
and B is the right argument. Any other names could be used 
instead, provided they are used consistently in the body of the 
function. Names of system functions or variables must not be 
used as the result variable or argument variables. 
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Table 2-1. Summary of Function Definition. 



Creating a function 

VZ+A NAME B 
Reopening definition 

VNAME 

Display 

CD] (Display all.) 
[D20] (Display from 20.) 
[2 ODD (Display line 20.) 

Insert a line between [23 and [3 J 

[2.1] P«-i5 
Delete line [3] 

[A3] 
Replace line [3] 

[3] P+Q+5x\N 

Line editing for line [3] 

[3D8] (Line 3, column 8.) 

[3] P+Q+5*iN (The line is printed.) 

I 1 1 (Type / to remove, 1 to insert 1 space.) 

[3] P«- +5xi // (Type additions in the spaces.) 

Extending line [5] 

[5D0] 

Context editing for line [3] 

[3] /.old phrase .new phrase (To replace.) 

[3] /.old phrase. (To delete.) 

[3] /..new text (To extend.) 

E 3 J /•• (To display the line and then 

extend it . ) 
[3] /.old phrase. new phrase. 4 (To replace 4 times beginning at 

line [3]) 
[3] /.old phrase. new phrase. 10? (Interactive multiple 

changes . ) 
[3] /.old phrase. new phrase. 710? (Interactive multiple 

replacement of names.) 

2-2 
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After any of the forms in the table, there can be a 
semicolon and additional names separated by semicolons. The 
additional names declare variables and functions to be local to 
the function. (Local variables and functions are discussed later 
in this section.) 

The function header is line [0] of the function. After 
entering a V and a header, function definition is said to be open. 
(If the header contains duplicate names, a DEFN ERROR will 
occur.) The system then types [1] on the next line to invite 
the user to enter line [1] of the function. The user can then 
type function lines, and the system continues to number lines. 
When the last line has been entered, function definition mode can 
be terminated by typing a v at the end of a line or on a line by 
itself. The V is recognized as long as it is the last nonblank 
character on the line, even if the line is a comment. 

Upon an attempt to close definition, statement labels are 
checked for duplication with names used in the header or names 
used for labels on other statements. Any errors cause the 
message DEFN ERROR and display of the line with the incorrect 
label. The error should be corrected, then V should be typed to 
attempt to close definition again. 

REOPENING DEFINITION 

To add more lines to a function, first reopen definition by 
typing V and the name. No other header information should be 
used — use of other header information causes the system to assume 
you are mistakenly attempting to create a new function having the 
same name as an old function. (The header can be changed after 
definition is open by treating it as line [0] and revising it as 
described below.) After definition of the function has been 
opened, the system types the number the next line will have. 
The user can type additional lines in the same manner as when the 
function was created. 

OVERRIDING THE LINE NUMBER 

After the system types a line number, the user can override 
that line number by providing a different one. For example, 
assume the system printed [4] because line [4] was expected. The 
user could type [ 2 ] to override the [4] if he wants to enter a 
new line [21. He could type the new line [2] on the same line he 
types the line number, or, he can type only the overriding line 
number and press RETURN, after which the system would type [ 2 J . 
After line [2] is provided, the system would continue by 
numbering the next line with [32. 

To insert a new line between lines, use a fractional line 
number. For example, [3.2] could be used to insert a line 
between lines 3 and 4. No more than 4 digits are allowed after 
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the decimal point. The system continues to number subsequent 
I lines by incrementing the last nonzero fractional position of the 
overriding line number until another overriding line number is 
used. Thus, after [3.98] would follow [3.99], U], [4.01], and 
so forth. 

w c To remove a ,U ne ' use a request of the form [A3]. The delta 
before the overriding line number indicates that the line should 
be deleted. More than one line number can be provided (e.g., [A3 
9 1.6]). Note that a line cannot be replaced by a blank line by 
overriding a line number with the number of the line to be 
deleted and pressing RETURN. 

Line [0] (the header) can be replaced like any other line, 
but it cannot be deleted. If the new line [0] causes the name of 
the function to change, the old function remains as it was when 
function definition was opened, and a function having the new 
name is produced when definition is closed. The function name 
cannot be changed to the name of a global function or variable 
and the function header is not allowed to contain duplicate 
names. 

When function definition is closed, all lines are renumbered 
with consecutive integers. Because line numbers can change, use 
of labels for all branching is recommended. 

DISPLAY OF FUNCTIONS 

When function definition mode is open, the entire function 

5™!?* dl f play ?<L^ y fc YP in g CO]. To display only line 3 of the 
function, type [3D]. To display all linei from line [3] on, type 
LD3]. If you interrupt the display (see Appendix C) , function 
definition remains open unless a closing V appeared in the same 
line as the request for display. 

LINE EDITING 

Line editing can be used to change individual characters in 
a line. To begin line editing, type something of the form [3D8], 
where 3 1S the number of the line to be revised, and 8 i s the 
approximate position in the line where the first change is to be 
made. The system then prints the line and unlocks the keyboard 
below the 8th character. Use spaces or backspaces to position 
the typeball to the position to be changed. Type / under a 
character to delete it, or type a digit 1 to 9 to insert 1 to 9 
spaces before the character, or type A below it to insert 5 
spaces, b for io spaces, q for 15 spaces, and so on up to s for 
40 spaces. To replace a character, you must delete that 
character (which closes up the line leaving no new space) and 
type a l below the next character to provide space for the 

2-4 60454000 F 



replacement character. After the changes are specified and 
RETURN is pressed, the system prints the revised line and waits 
at the position of the first inserted space or at the end of the 
line if no spaces were inserted. Type in any new characters in 
the spaces and then press RETURN. 

If line editing causes the line number to change, the old 
line remains intact, and a new line with the new number is 
inserted. To extend a line, use the form [3D0]. The zero as a 
position in the line causes the line to be printed and the 
keyboard to unlock at the end of it. 

Note that line editing is not allowed for terminals that do 
not print the APL character set. Context editing (see below) can 
be used in these cases. 



CONTEXT EDITING 

Context editing allows replacement of the first occurrence 
of a given phrase by another phrase. Context editing is often 
more convenient than line editing when the changes are localized 
in a small part of the line and prior display of the line is not 
required. The editing command has the form 

/•old phrase .new phrase. options 

The / signals that what follows is a context editing 
request. The symbol immediately after the / is the symbol chosen 
by the user to separate the old phrase (i,e., that which is to be 
replaced), the new phrase (i.e., the replacement), and the 
options. Any delimiter or series of delimiters at the end of the 
line can be omitted unless the symbol to the left of the 
delimiter is a V or a space. In the simplest case where no 
options are provided, the first occurrence of the old phrase is 
replaced by the new phrase. The search for the old phrase begins 
at the left of the line the system is currently expecting but 
does not continue beyond the end of that line. (A different line 
number can be specified by overriding the line number provided by 
the system.) Special cases arise if the old phrase, the new 
phrase, or both, are empty. If the old phrase is empty, the new 
phrase is placed at the end of the line; if the new phrase is 
empty, the old phrase is deleted (i.e., replaced by an empty 
phrase) ; if both phrases are empty, the line is displayed and 
the keyboard unlocks at the end of the line to allow the line to 
be extended. After a change, except in the case where both 
phrases are empty, the altered line is displayed. The following 
examples illustrate cases in which no options are specified: 
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/.FOUR. SIX {FOUR is replaced by SIX) 

/ , 3 . 5 , 4 . 5 (a comma is used as the delimiter 

because periods occur in the phrase.) 
[3] /.X\Y+. (Deletion of X\Y+; [3] v/as used to 

override the line number that had 

been printed by the system.) 
/ • • ; C ' (To extend the line with ; C) 

I • • (To extend the line with information from 

the keyboard.) 



The options may include a number, question mark, or the 
letter V, These may occur in any order and may have (but do not 
require) spaces between them. When a number is included in the 
options, that number is interpreted as a repetition count. The 
number also has the effect of allowing the search to extend to 
lines following the line of the function where editing began. 
After each repetition, the search begins just beyond the last 
change or match. The operation is repeated until the repetition 
count is satisfied or until the end of the function is reached. 

The question mark can be included among the options if you 
want to select which matches should result in replacements. The 
line is shown as it would appear if the change were made, and you 
are then asked to type lor I (for yes or no) to indicate whether 
the change should be performed. 

A V among the options stands for variable name replacement. 
More precisely, the V requires that a phrase not be considered a 
match if it is preceded or followed by a period, letter, or a 
digit. This option is usually used to prevent accidental 
matching on part of a name or part of a number. As suggested by 
use of the letter V, this option is usually used to change the 
names of variables, although it can also be used to control 
matching of function names, label names, constants, or words in 
comments or within quotes. 

The following examples illustrate the use of these options 
in various combinations: 

[6] /.A.J.3V (Beginning at line [6], replace the first 

3 occurrences of the variable name A with 
J.) 

[1] /.12.13.7V 1E10 (Change the constant 12 to 13 throughout 

the function, but allow the user to accept 
or reject each change. The huge 
repetition count assures that the entire 
function will be processed.) 
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[4] /,+.*, °.x,2 (Beginning at line [4], change 2 

occurrences of + .* to °.x. Note the use 

of commas as delimiters because the 
phrases contain periods.) 

FUNCTION DEFINITION SHORTCUTS 

In general, a line you type in function definition mode is 
used up before you are required to type another line. For 
example, you can type [3DDV to display line [3] and then close 
function definition. Or, you can type VFNl33P+iNV to open 
definition, override the line number with [3], provide a new line 
C3], and close definition. A V at the end of a statement is 
always recognized, but other editing requests at the end are 
interpreted as being part of the line. Hence VFNL3 ]P-<-i//[ 4Q]v 
would cause line [3] to be P+iNlnm. it would not cause display 
of line [1] after replacing line [3], 

LINE SEPARATOR 

You can use the diamond symbol (the overstrike k for a 
Selectric terminal) as an input line separator for function 
definition mode. The parts separated by diamonds are used as if 
they were entered consecutively from the keyboard except that the 
normal line number prompt is suppressed. However, input lines 
for line editing requests must still be entered separately from 
the keyboard. Any diamonds preceded by an odd number of quotes 
are considered to be part of character constants and not line 
separators. If an error occurs, any remaining lines are 
discarded and input is again requested from the keyboard. The 
following example shows use of the line separator to define a 
function and then display it: 

VZ+-NEXTLINE N ft Z+-CFP.EAD N ft Z-*-(v:\Z*« ' )/Z * LUlV 

VZ+-NEXTLINE N 
[13 Z+CFREAD N 
[2] Z<-(v\Z*' ')/Z 

V 

The purpose of the line separator is to reduce waiting time when 
the computer responds slowly. The diamond is allowed as a line 
separator only in function definition mode and should not be 
confused with the use of the same symbol in other versions of APL 
to allow multiple executable APL statements on a line. 

ESCAPE FROM FUNCTION DEFINITION 

All changes to a function are considered tentative until 
function definition mode is closed. The overstrike W (formed 
from 0, U, and T) can be used to escape from function definition 
mode without changing an old function or creating a new function. 
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The is recognized as long as it is the first nonblank (ignoring 
the system prompt) in a keyboard entry. However, when the system 
asks you to type j or j during interactive context editing, the 
overstrike terminates context editing and leaves function 
definition mode in effect. 

LOCALIZATION OF VARIABLES AND FUNCTIONS 

The variables local to a function include all variables 
appearing in the function header and all statement labels. 
Variables that are not local to any function are called global 
variables. When execution of a function begins, the local 
variables take precedence over any other functions and variables 
having the same names. Other variables that were in effect 
before this function was called (that is, those not local to this 
function, which are called variables global to the function) 
remain accessible. When execution of the function is completed, 
the variables local to it vanish, thus releasing storage space 
for other uses, and any variables or functions global to the 
function become accessible again. 

As execution of the function begins, the argument variables 
are assigned the values of the arguments in the expression 
invoking the function. If the function modifies the arguments, 
it is actually changing a copy of the original arguments. (See 
Section 12 for storage implications.) The label variables are 
also assigned scalar integer values of the line numbers on which 
they appear. These variables are locked to prevent them from 
being assigned inappropriate values. (However, they can be given 
improper values if they are first erased and then given a value.) 
The result variable and any other variables listed after the 
first semicolon in the header have no initial value. 

A function can also have another function local to it if it 
has the second function's name in its header. As for local 
variables, the local function is undefined as execution of the 
main function begins. The local function can then be defined by 
use of UFX or UCOPY v/ith UEI1V having 1 as its value (the normal 
case — see Section 8 for details about UFX , UCOPY, and UENV) . 
When execution of the main function completes, the function 
local to it will vanish, just as a local variable would, and any 
temporarily inaccessible function or variable having the same 
name would again become accessible. 

FUNCTION EXECUTION 

Function execution begins when the name of the function is 
encountered in an expression being executed and any arguments 
have been evaluated. The system must save information about how 
far execution has progressed in the calling line in order to be 
able to eventually return to it and continue processing. The 
state indicator is a summary of this information and is available 
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to the user. Execution of a function begins with establishment 
of local variables as discussed in the last section. Then, 
except for branching, the statements are executed in order from 
first to last. After the last statement has been executed, the 
value last assigned to the result variable is returned to be used 
in the calling expression, and all local variables vanish. 

Branching can be used to control which statement will be 
executed next. A branch statement consists of a branch arrow 
followed by an expression that returns a result. The value must 
be a scalar or a vector, and unless it is an empty vector, the 
first value must be a nonnegative integer. If an empty vector is 
used, the next statement is performed. If the value is a scalar 
or vector, its first element is used as the number of the line to 
be executed next. If the value is or exceeds the largest line 
number, the function exits. The following examples show useful 
branch statements. Close examination of the expressions to the 
right of the arrows should show how they generate appropriate 
line numbers: 

-*-5xi4<m (Branch to line 5 if A is less than 14. Note 
that this will not work in 0-origin.) 

-*-U = 3)/8 (Branch if A equals 3 to line 8,) 

■+(Il,L2,L3)[2 + xfl] 

(Branch to LI if B is negative, to £2 if 
zero, or to £3 if positive.) 

->-U>20 18 13 2)/L5,£4,L3,L2 

(Branch to £5 if A is greater than 20, branch 
to m- if greater than 18 but not 20, to line 
L3 if greater than 13 but not 18, to £2 if 
greater than 2 but not 13, or go to the next 
line if A is less than or equal to 2.) 



STATE INDICATOR 

Any lines that call for execution of another function cannot 
be completed until the other function has exited. Such 
unfinished lines are called pendent lines. If an error causes a 
halt at a line of a function, that halted line is said to be 
suspended. The state indicator is a record of all pendent and 
suspended lines of functions. It omits partially executed lines 
entered in immediate execution mode, lines entered for quad 
input, and lines used as arguments to the execute function. The 
state indicator with variables, displayed by the system command 
)SIV, shows what lines are pendent or suspended and also shows 
variables local to functions. An abbreviated form, displayed by 
the system command )SI , omits names of label variables and names 
appearing in the header after the first semicolon. For example: 
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)SIV 
l3]*Z+PRINT B',X',K:LIMIT:L1:L2 
CHD SIMU K-.LZ 

)SI 
l3l*Z+PRINT B 
in! SIMU K 

In both examples above, the most recently invoked line is shown 
first. An asterisk marks a line that is suspended. Here, line 
[4] of SIMU called PRINT, and execution of PRINT halted at line 
[3] because of an error. The )SIV display shows the full 
function header followed by a colon and names of statement labels 
separated by colons. If the function has no statement labels, no 
colons appear . 

The )SIV display shows that the variable K currently 
accessible is the one local to PRINT. The other K local to SIMU 
is no longer accessible. However, the label variable L3 local 
to SIMU still has its value because no variable L3 is .local to 
PRINT, In general, the current value associated with a variable 
name is that for its first occurrence on the state indicator. If 
it does not appear on the state indicator, the current value is 
that of any global variable having that name. 

A branch in immediate execution mode can be used to restart 
execution of the most recent suspended function. For example, 
->5 would cause execution of PRINT to continue at line 5. 
Usually, the function would be corrected or values of variables 
would be changed before proceeding. To remove the most recent 
suspension and the pendent lines that led to it, type a branch 
arrow with nothing to the right. A beginning user of APL often 
begins a new execution of a function without removing the old 
one, causing a large number of suspensions to accumulate. These 
unnecessary suspensions waste space and can lead to confusion by 
allowing local variables to make global variables inaccessible. 
When a suspension occurs, it is a good practice to either make 
corrections and continue execution or clear the state indicator 
by use of the niladic branch (see Section 3) . An excessive 
number of suspensions can be eliminated by use of OSAVE 'name' 
(see Section 8) . 

The information the system keeps about pendent lines can 
become invalid if the pendent functions are altered, replaced, or 
erased. The system responds by printing 14: SI DAMAGE and 
surrounding with brackets the names of the affected functions on 
the state indicator display. Execution of the affected functions 
cannot be resumed. Experienced users are expected to avoid SI 
DAMAGE if they intend to continue execution of a halted function. 
Certain changes to suspended functions can also lead to SI DAMAGE 
— specifically, altering the function header or changing the 
number or relative order of statement labels. 
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RECURSIVE FUNCTIONS 

An. APL function may appear more than once on the state 

indicator and it may even call itself. The following example 

shows a simple recursive function that calls itself to compute 
the factorial of an integer : 

VZ+FACT N 
Cl] Z«-l 
[2] -Kil/<2)/0 
[3] Z+N*FACT N-l 
[4] V 

FACT 5 
120 



HALTING A FUNCTION 

While a function is running, it can be halted by an 
interrupt (see Appendix C) . However, when the keyboard is 
unlocked, use of the interrupt on some terminals is interpreted 
as an attempt to revise the line being entered. To halt a 
function requesting quote-quad input, type the overstrike m 
(formed from 0, U, and t) . This results in suspension as if an 
error had occurred. To halt a function requesting quad input and 
remove it and all related pendent lines from the state indicator, 
use a branch arrow with nothing to the right. 

TRACE AND STOP CONTROLS 

Any stop, trace, and timing controls in effect for a 
function are cleared if function definition mode is used to 
change the function in any way. 



LOCKED FUNCTIONS 

A function can be locked by using ¥ (V overstruck by ~) in 
place of V when opening or closing function definition. Locking 
a function prevents display of the function and prevents its 
definition from being reopened. An attempt to open definition of 
a locked function results in the error message DEFN ERROR. A 
locked function cannot be unlocked; if you will want to change a 
locked function at a later date, keep an unlocked copy of the 
function in another workspace protected by a password, or keep a 
printed listing of the function. 
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Section 3. Statement Form and Order of Evaluation 

This section discusses the form of legal APL statements and 
the order of evaluation of statements. Restricting the 
discussion to "APL statements" means that system commands Cwhich 
are distinguished by beginning with a right parenthesis) are not 
of interest here. The meaning of a statement is determined in 
part by its form, but mainly by the functions used and the 
environment in which they are used. This section discusses the 
influence of form on meaning and leaves the functions and 
environment to be discussed in several other sections. 

SPACES 

The use of spaces in an APL statement is usually unimportant 
to the meaning of the statement except for a few cases: 

(1) Names must be separated from other names by spaces, 
and names must be separated from digits of a number to 
the right by spaces. (Also, a name beginning with E 
must be separated from digits to the left.) Otherwise, 
they would run together and appear to be all one name. 
Conversely, spaces in the middle of a name would make 
it appear to be two names. 

(2) Numbers next to one another must be separated by 
spaces, and spaces cannot appear v/ithin a number. 

(3) Spaces within a character constant are treated as 
any other character in the constant and affect the 
value of the constant. 

(4) Spaces in a comment (except for trailing spaces) 
are preserved by the system. Although they have no 
meaning to the APL system, they may be important to 
the reader of the comment. 
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FUNCTION DEFINITION AND SYSTEM COMMANDS 

As execution begins for statements entered in immediate 
execution mode, entered in response to quad input, or used as 
arguments to the execute function (but excluding statements in 
the body of a function) , a check is made to determine if the 
first nonblank character on the line is v, 9, or ). In these 
cases the statement is preconverted to become a call to the 
function DFD (a system function that performs function definition 
mode) or DST (a system function that performs system commands) 
with the original line as a character argument. For example, 
VFNZeUl becomes UFD 'VFniGW]' . To preserve the original meaning, 
any quotes in the original statement become double quotes after 
the conversion. Any comment at the end of the original statement 
becomes part of the argument to UFD or USY. The discussion that 
follows assumes that any such preconversion has already been 
performed . 

COMMENTS 

A comment may be entered in immediate execution mode or may 
appear in a function line. Comments begin with the symbol o and 
extend to the right to the last nonblank on the line. The part 
of the line following the comment symbol is not executed. This 
allows the user to intersperse descriptive text with APL 
statements. The following example shows a comment used in 
immediate execution mode to add a description to the printed 
transcript of the session: 

K<-2*iN a TO GENERATE 2 4 6, ETC. 

The following discussion makes no further mention of comments, 
although a comment may appear at the end of any line, or the 
comment may constitute the entire line. 

CONSTANTS 

Constants represent numbers or characters. For example, 
.14 5.2 9 is a numeric constant-vector, and 'ABCD* is a 
character constant-vector. Constants consisting of one character 
or number are scalars, while those having more components or no 
components are vectors. 

An unsigned -number is defined to be any of the following: 

digits 

dig its. digits 

.digits 

where digits represents one or more of the digits 01234 5678 9. 
The italic notation used here is used throughout this manual to 
denote a term having a special definition. Here, digits 
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represents a sequence of digits, not the letters digit and s. 
Hence the following numbers are examples of unsigned-numbers : 

3.4 

.05 
58 



A number has any of the following forms : 

unsi gned-number 
unsigned- number 
unsi gned-number exponent 
unsigned-number exponent 

The symbol ~ is used to express a negative number — the minus 
symbol cannot be used in its place. An exponent has one of the 
following forms: 

E digits 
E~ digits 

The E can be read "times 10 to the power." So, 1E23 means 
lxio*23, and 3.2E~3 is the same as .0032. A numeric-constant is 
formed from one or more number, separated by spaces. 

A character-constant is of the form: 

'symbols ' 

where symbols represents any number of APL symbols, including 
no symbols. The symbol « in a character-constant is represented 
by two quotes. For example, 

t IT i t S t 
IT'S 

Quotes must always appear in pairs. An expression with an odd 
number of quotes results in a SYNTAX ERROR. 

The term constant means either a numeric- constant or a 
character- constant . 



FUNCTIONS 

Functions are of three kinds : 

(1) System functions, which have names that begin with □ or 
0, are used to communicate with the APL system. 
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(2) User-defined functions, which have names formed in the 
same way as variable names, are the only ones the user can 
define. 

(3) Primitive functions (except those produced by operators) 
are symbolized by single characters such as +, x, +, etc. 

For the purposes of this section, the important features of 
functions are the number of arguments they require and whether 
they return results. Functions can be monadic (one argument), 
dyadic (two arguments) , or niladic (no arguments) . If rf unction 
is used to denote a function that returns a result and function 
is used to denote one that does not, the six possible forms are: 

dyadic-r function (Dyadic, returns a result.) 

monadic-r function (Monadic, returns a result.) 

niladic-rf unction (Niladic, returns a result.) 

dyadic-function (Dyadic, no result.) 

monadic-function (Monadic, no result.) 

niladic-f unction (Niladic, no result.) 

For some primitive functions and system functions the same 
symbol or name is used for two distinct functions — one monadic 
and the other dyadic. The dyadic function is used if there is a 
left argument, and the monadic function is used if there is no 
left argument. 

Dyadic user-defined functions can be used without a left 
argument, but if the function requires a value for its left 
argument, a VALUE ERROR results. The following example is a 
function that can be used without a left argument provided its 
right argument is not negative: 

VZ+A Fl B 
[1] Z«-2xB 
[2] +(B>0)/0 
[3] Z+Z+A V 



Fl 5 



10 



Fl 1 
05: VALUE ERROR 
Fl[3] Z+Z+A 
I 

5 Fl ~1 
3 

The function UNC, described in Section 8, can be used to check 
whether the left argument has a value. This could be used to 
write user-defined functions that have distinct monadic and 
dyadic forms in analogy to distinct primitive functions having 
the same symbol . 
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V7hether a name refers to a function, or a variable is a 
matter that can be decided only when the line begins to execute. 
Also, whether a function actually returns a result may depend on 
circumstances. For example, if a user-defined function was 
defined to return a result, but the result variable was not 
assigned a value prior to exit from the function, a VALUE ERROR 
results if the expression calling the function requires a result. 



OPERATORS 

An operator is a special kind of function that takes 
functions as arguments and produces functions as results. 
Following are examples of four types: 

A*.*B (Inner Product.) 

A°,*B (Outer Product.) 

i/B (Reduction.) 

t\B (Scan.) 

The operators are the period, /, and \. In place of the * and x 
in the above examples, any dyadic scalar function symbols could 
be used. These operators are discussed in detail in Section 7, 
but for the present, it is important to note that the forms 
exemplified by *.* and ° .^ represent dyadic functions that return 
results, and */ and *\ represent monadic functions that return 
results. 

The axis operator is used to specify the coordinate along 
which an operation is to be performed. Only a few functions can 
be used with the axis operator and further details are discussed 
with those functions. The operator is used in the form 
function-symbollvaluel. For example: 

♦ C2]B 



A variable is a name that might be associated with a value. 
The variable-name is formed from any sequence of the letters A to 
Z, underscored letters A_ to Z_, digits to 9, or the symbols A, 
_A, or _, but the name cannot begin with a digit. System 
variables are special variables with names that begin with Q or 
Q. The rest of the name can be composed in the same way as 
normal variable names. Only the system variables recognized by 
the system can be used — the user cannot invent new ones. 

An indexed-var iable is of the form: 

variableLlist ] 



'60454000 A 3 _ 5 



A variable-name having no value associated with it can be used 
only immediately to the left of an assignment arrow; otherwise a 
VALUE ERROR will result. 



VALUES 

A value is any of the following: 

variable 

constant 

constant! list] 

indexed- variable 

monadic-rfunction value 

left-argument dyad ic-r function value 

nil ad ic-r function 

nil ad ic-r function! list] 

left-argument 

var iable-name-*-value 

indexed-var iable+value 

( value) 

-►value 

The last case has the further restriction that the ->■ may appear 
only as the first character of a line. 

Use of an indexed-variable to the left of a specification 
arrow sets the values of elements of the variable without 
changing the shape of the variable. Used elsewhere, the index 
returns parts of a value. 

The assignment arrow can be used to give a value to a 
variable or to change the value of a variable. The result of the 
assignment (not to be confused with the value of the variable) is 
the value used on the right. Consequently, A+Bl 1 2]-«-3 is the 
same as the two statements Bll 2]-<-3 and 4+3. Similarly, A+-Q+B 
is the same as D-«-B and A+B; but A+-U+B is not the same as Q+-B and 
A-U. 

The operations to find a value occur in right to left order. 
Hence, 3x2*4 means 3*(2*4). When a dyadic function is 
encountered, the right argument is preserved while the expression 
producing the left argument is evaluated. Hence, 



A+Z 
{A+k)*A 



12 



More generally, any value encountered in the right to left scan 
is preserved. For example, 

A-* 5 6 
Al3 2 ll-A 
A 
6 5 4 
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(On some APL systems the result would be •* 5 4- or 6 5 6 because 
the variable on the right is not preserved, while on other 
systems such operations are prohibited.) However, the following 
example shows a case where the value is not preserved because the 
scan has not reached the variable: 

A-2 
A + A+3 



In other words, specification of a variable affects all 

references to that variable that occur to the left in the line, 

but affect no references to that variable to the right in the 
line. 



LEFT ARGUMENTS 

A left-argument is any of the following: 

variable 

constant 

oonstant[l ist ] 

index ed-variable 

( value) 

(value) [list] 

nil ad ic-r function 

nil adic-rfunctionC list] 

For example, 3 can be used as a left argument, ALPHA can be used 
as a left argument, and ' 123'E2] can be used as a left argument, 
but 2x3 cannot unless it is enclosed in parentheses. In fact, 
in 2x3*5, the 3 would actually be used as the left argument to 
*. 

EXPRESSIONS 

An expression is the same as a value except that it need 
not return a result that can be used for subsequent operations. 
An expression is any of the following: 

monadic-function value 
left-argument dyadic-function value 
nil ad ic- function 
value 

-»• 

The last case, called niladic branch, can be used only as the 
leftmost character of a line. The branch with no value or 
expression to the right causes exit from the executing function 
and from all other functions on the state indicator up to any 
previous suspension. 
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LISTS 

A list is of the form: 

list-element 

list-element ; list-element 

list-element ; list-element ; list-element . . . 

The list, if used for an index, must have one list element for 
each dimension of the array being indexed. 

A list-element can be: 

vacant 

value 

expression 

An expression that does not give a result can be used in a list 
used for indexing and is treated as if the list element were 
vacant. A list element is vacant if there is nothing at all in 
that position. For example, Fl3-,1 illustrates a list having a 
vacant list-element. 

The elements of a list are evaluated in right to left order. 
Hence 

A+3 ; A+5 

gives A a final value of 3. Note that the semicolon is not an 
APL function. Lists can only be used for indexing, and UFKMT , 
Expressions like the following are illegal: 

3pU;B) 
Also, the statement 

3pA;B 
is equivalent to 

{3pA)iB 
not 

3pU;B) 

The expressions separated by semicolons are evaluated separately, 
then their results constitute the list. 
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LINES AND IMPLICIT OUTPUT 

A line is any of the following: 

value 

expression 
list 
vacant 

When a line is a list, the list elements are printed in left to 
right order. The list can contain a mixture of character and 
numeric values as shown below: 

X+3H 

'THE VALUE OF X IS: « ;X 
THE VALUE OF X IS: 3 4 

Scalar and vector list elements are printed on the same line (if 
UPW has not been exceeded) , but printing of a matrix or array of 
higher rank begins on a new line, and any subsequent vector or 
scalar begins on a new line. List elements that are vacant or 
that produce no results are skipped over. 

If the first list element is a niladic branch, no output is 
produced. If the first list element is a branch with a value to 
the right, the value of the branch is printed along with the 
other list elements, then the branch is taken. 

When the line is a value, the value is printed unless a 
specification or branch occurred as the last operation. Hence, 
3 + 2 would print a result, but i4-<-3 + 2 or even (A-<-3 + 2) would not. 



A statement is either a line or a line with a label. The 
laiel is a variajble-narae and colon placed before the line. For 
example: 

REPEAT :-mx\X=Y 

A label on a statement entered in immediate execution mode, for 
quad input, or in the argument to the execute function is ignored. 

QUAD AND QUOTE-QUAD 

The system variables □ and H are used for input and output. 
When they are assigned a value, the system prints the value. 
When their values are used in an expression, the system reads 
input from the keyboard to provide the value. 
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When 13 input is requested, the keyboard unlocks (normally 
with the type element at the left margin).. Any characters typed 
are returned as a vector, except that a single character gives a 
scalar. 

When D input is requested, the system prints Q : and then on 
the next lire indents six spaces and unlocks the keyboard. Any 
APL expression that returns a result can be entered. If the 
expression is incorrect or does not produce a result, an error 
message is printed and the input request is repeated. For 
example, 

D: 

B (This is the input line.) 

05: VALUE ERRCR 
B 

/ 
0: (The input request is repeated.) 

2xi4 

A 
2*68 

A branch in quad input does not actually effect a branch. 

The n can be used for output to conserve lines in a program. 
The statement Q+A+-B has the same effect as the two statements A+B 
and D-«-B. 

The B symbol, when used for output, is slightly different 
from D used for output. Ordinarily, APL output is followed by a 
carriage return so that the next input or output will begin on a 
new line. However, when quote-quad is used for output, the extra 
carriage return is suppressed. This allows the program to 
continue output on the same line or to give output and then 
request input on the same line. For example, 

VZ+ASK B 
E 1 ] E-H3 
[2] Z<-H 7 

P+ASX 'AGE? ' 
AGE? 38 
p 

3 8 (Note leading blanks in the result.) 

The leading blanks show where the typeball was positioned when 
the keyboard was unlocked. The person who was typing could have 
backspaced and replaced the blanks with other characters. Any 
leading blanks can be removed by using (v\B*« ' )/B+\H. Note that 
□Pf/ is not ignored when E output is used. If the number of 
printed characters reaches UPW, the system inserts a carriage 
return in the output and indents 6 spaces before continuing the 
output. 
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Section 4. Scalar Functions 

The class of scalar functions includes those functions that 
can be defined for scalar arguments and then can be extended to 
other arguments through element-by-element extension. That is, 
if the function is monadic, the result has the same dimensions as 
the argument, and the elements of the result are found by 
applying the function to all elements of the argument. For the 
dyadic functions the following rules apply: 

1. If the arguments have the same shape, the result has 
that shape and is formed by applying the function to 
the corresponding elements of the arguments. 

2. If one argument is a one-element array and the other 
is not, the result has the shape of the one that is not 
one element. The one-element argument is used with 
each element of the other argument to form the result. 

3. If both arguments are one-element arrays, the result 
has the larger of the ranks of the arguments. 

For the dyadic functions, the arguments must either have 
identical shapes or at least one must be a one-element array. 
Any other arguments produce a RANK ERROR if their ranks differ, 
or a LENGTH ERROR if their ranks match but dimensions differ. 
The following examples illustrate some of these rules: 

U+A+3 3pi9 
12 3 
4 5 6 
7 8 9 

-A (A monadic scalar function.) 

~1 ~2 ~3 

~H ~5 ~6 
"7 "8 ~9 
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Table 4-1. Summary of Scalar Functions. 



Dyadic Function 


Monadic 


Function 


A+B 


Sum of A and b. 


+B 


Same as otB. 


Addition 


3t5-«~>-8 


Plus 




A-B 


A minus B. 


-B 


Same as o-B. 


Subtraction 


3 -!+-<">• 1 


Additive 
Inverse 




A*B 


Product of A 


*B 


Sign of B. Same 


Times 


and B. 


Signum 


as (B>0)-B<0 




2x4-«~>-8 




*3 2«--»-l 1 


AiB 


A divided by B. 


tB 


Same as HB. 


Divide 


Division by is not 


Recip- 


Not allowed if B 




allowed except that 


rocal 


is 0. t.2-<->5 




OtO is defined to 








be 1. 3*2«--KL .5 






A[B 


Larger of A and 


TB 


If B is an 


Maximum 


B. 3T5-«~>5 ir"5-«~>"l 


Ceiling 


integer, the 
result is 
that integer. 
Otherwise the 
smallest integer 
greater than B. 
T2.5 3-«~»-3 3 


AlB 


Smaller of A and 


LB 


If B is an 


Minimum 


B. 3L5+-+3 


Floor 


integer, the 




1L 5-f-i- 5 




result is 
that integer. 
Otherwise the larg- 
est integer less 
than B. 
L2 . 5 3«-*2 3 


A*B 


4 to the B 


*B 


e to the B 


Power 


power. A may 


Exponent- 


power (e is 




be zero if B 


ial 


2.71828182845904) 




is not negative. 








0*0 is defined to be 








1. If A<0, B must 








be repres en table as 








a rational fraction 








with an odd 








denominator. 






aqb 


Base A logar- 


®B 


Natural (base e) 


Logarithm 


ithm of B. A 


Natural 


logarithm of B. 




must be positive and 


Logarithm 






must not be 1 . 
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Table 4-1. Summary of Scalar Functions, Continued. 



A\B 
Residue 



AlB 
Combinations 
of 



,405 
Circular 



The remainder of 5 
divided by A . 
More precisely, 
B-Ax\B±A+A = 



Number of combi- 
nations of 5 
things taken A 
at a time for 
positive integer 
arguments . More 
generally AlB 
<--*•( !5)*( IA)*IB-A 



The argument A 
determines which 
function from the 
following table 
is applied to B. 
A must be an 
integer in the 
range 7 to 7 . All 
angles are in 
radians. 



.15 
Magnitude 



IB 
Factorial 



Absolute _Value of 
B. I 3 3 -*-->- 3 3 



?B 
Roll 



~5 
NOT 



OB 
Pi 



times 



Factorial of B 
for nonnegative 
integers. Otherwise 
the mathematical 
gamma function of 
B+l. Not defined 
for negative 
integers . 



A random choice 
from i B . Depends on 
current origin. 



B must consist of 
1 ' s or ' s . 
~l-«~»-0 ~0-*-*-l 



Pi times B 

ol-*--* 

3 .14159265358979 



Ft 


NOB 


(-N)oB 





(1-5*2)*. 5 


(1-5*2)*. 5 


1 


sin B 


arc sin 5 


2 


cos B 


arc cos 5 


3 


tan B 


arc tan B 


4 


(1+5*2)*. 5 


( 1+5*2)*. 5 


5 


sinh 5 


arc sinh 5 


6 


cosh B 


arc cosh 5 


7 


tanh 5 


arc tanh 5 



A=B 
A*B 
A<B 
A>B 
A<B 
A>B 



Equal 
Not equal 
Less than 
Greater than 
Not greater than 
Not less than 



Result is 1 if the 
relation holds, 
otherwise. 

3>5 6 3 1 ■«--»- Oil 



i4AS 
AvB 
A*B 
A»B 



AND Elements of 

OR A and 5 

NAND must be l's 
NOR or O's. 

A*B-*~*-~AkB 
AvB-*-+~AvB 



A B Af^B 
111 
1 

10 




AVB 
1 

1 
1 




A+tB A**B 



1 
1 
1 1 
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2*4 (Scalar argument and matrix argument.) 
2 4 6 
8 10 12 
14 16 18 

A+A (Two arguments with identical shapes.) 

2 4 6 
8 10 12 
14 16 18 

p(l lp4)*(i l lp3) (The larger rank prevails.) 

ill 

Table 4-1 describes most of the scalar functions in complete 
detail. Most of these functions are familiar mathematical 
functions or incorporate very simple concepts. Therefore, the 
discussion below deals with only a few of the less familiar 
functions or special cases. 

The symbol «--*■ is used in Table 4-1, as well as in much of 
the rest of this manual, to mean "is the same as." Note that 
this symbol is not part of the APL language, but is used to 
describe APL. When «--» is used between two expressions, the 
entire expression to the left is asserted to give the same result 
as the entire expression to the right. 

FLOOR AND CEILING 

The functions floor and ceiling always return an exact 
integer. The result depends on the value of UCT as follows: If 
(.\B-NINT B)<UCTx(l + \NINT B) the result is NINT B, where NINT B is 
the nearest integer to B. Otherwise, the result is the least 
integer larger than B for ceiling, or the largest integer smaller 
than B for floor. Note that B-lB can be negative in cases where 
UCT is not zero and B is slightly less than an integer. 

POWER 

In keeping with proper mathematics, the power function does 
not allow taking square roots of negative numbers (e.g., ~l*.5), 
but it does allow taking cube roots of negative numbers (e.g., 
1**3). To distinguish these cases, the power function attempts 
to represent the right argument P as a rational number NiM, where 
N is an integer and M is the least integer such that (,N*M) = ]P . 
Note that (NiM)=\P depends on UCT. If the left argument is 
negative and the rational representation has an even denominator, 
the power function gives a DOMAIN ERROR. If the left argument is 
negative and the rational fraction has an odd denominator, the 
result is negative if the numerator is odd and is positive if the 
numerator is even. 
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RESIDUE 

The residue function is slightly more sophisticated than the 
definition in the table. For example, 2|2-.5xQcr would give the 
improper negative result - . 5xUCT . The actual algorithm returns 
zero if B-A* LB*A+A=0 would give a result having a sign opposite 
to the sign of A. 



COMBIUATIONS-OF 

The combinations- of function returns limit values of AlB if 
A, B, or B-A are negative integers. That is, the result is zero 
if A, B, and B-A are all negative integers or if B is not a 
negative integer but either A or B-A is a negative integer. AlB 
is related to the mathematical Beta function as follows: 

BETA(A,B)<-+iBx{A-l) U+B-l 



CIRCULAR FUNCTIONS 



The domains and ranges of the circular 
below. All angles are in radians. 



functions are given 



N 


NoB 


Domain 


Range 


(-N)OB 


Domain 


Range 





(1-B*2)*. 5 


1>\B 


( 05Z)M>Z 








1 


sin B 




1>1Z 


arc sin B 


±>\B 


(0.5)>|Z 


2 


cos B 




1>]Z 


arc cos B 


1>\B 


( Z>0)AZ<01 


3 


tan B 






arc tan B 




(0.5)>|Z 


4 


(l+fl*2)*. 5 




1<Z 


("1+3*2)*. 5 


IS] B 


0<Z 


5 


sinh B 






arc sinh B 






6 


cosh B 




1<Z 


arc cosh B 


1<B 


0<Z 


7 tanh B 




1>|Z 


arc tanh B 


1>\B 





RELATIONAL FUNCTIONS 

The functions = and * are the only scalar functions that can 
be used with arguments of character type. Characters can be 
compared with numbers, but the result always shows inequality. 
For numeric A and B, the result for A-B is l if \B-A is not 
greater than UCT*\B. The three conditions A<B , A=B, and A>B are 
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always exclusive. For example, if A=B giyes l, then A>B and A<B 
give o. The range where two numbers are considered equal is 
illustrated below: 

A<B A=B A>B 



4 1 1_ 



B-UCT*']B B B+UCTxlB 
Note that when B is zero, A=B gives 1 only if A is exactly zero, 
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Section 5. Array Concepts and Indexing 

An APL array can be visualized as an arrangement of values 
along n orthogonal coordinates, where n is to 75 for this 
particular APL system. The positions along the coordinates are 
numbered 1, 2, 3, etc. in 1 -origin, and they are numbered 0, 1, 
2, etc. in 0-origin. The number of elements along a coordinate 
can be or more. The lengths of the array along the coordinates 
are called the dimensions of the array, and the number of 
coordinates is called the rank - of the array. The names scalar , 
vector , and matrix are used to denote arrays of rank 0, 1, and 2, 
respectively. No special names exist for arrays of rank greater 
than 2. The APL system has an arbitrary limit of 75 as the 
maximum rank of an array, but in practice, this limit is so 
large that it is not restrictive. Contrary to common casual 
practice in mathematics, an APL array has a definite rank — a 
one-element vector is not the same as a scalar, and a matrix with 
one row or column is not a vector. 

The last coordinate of an array is conventionally considered 
to be the column coordinate, the second from last coordinate is 
the row coordinate, and the third from last coordinate is the 
plane coordinate. The following examples show how various arrays 
can be formed and displayed: 



3 
3 




(A scalar.) 


i4 
12 3 4 




CA vector.) 


2 3pi 
12 3 
4 5 6 


l6 


(Ji matrix.) 



2 3p*ABCDEF l (A matrix of characters.) 

ABC 
DEF 
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Table 5-1. Summary of Section 5. 



Function Description 


P S 
Size 


Returns a vector containing the 
dimensions of B. The result 
has elements for a scalar s. r 
1 element for a vector, and 2 
elements for a matrix. 


VpB 
Reshape 


Forms a result having the dimensions 
specified by the left argument and 
having elements taken from the 
right argument in odometer order. 


,B 
Ravel 


The result is a vector containing 
all elements of B in odometer 
order . 


.R+Blll ;J2; 

13; ... ;277] 
Indexed 
selection 


The result has as dimensions 

(pji),(pi2),( P j3) (pjm 

and contains those elements of 

B for which their first 

index is in Ji and their 

second index is in 11 , etc. 

If a list element is vacant, all 

possible index values are used. 


Rill ;I2;I3; 

... ;INl+-B 
Indexed 

spec if ica t ion 


The indicated elements of R 
are set to corresponding values 
from b. Either s must 
be a one-element array, or the 
dimensions of B must match 

(pJl),(pI2),( P J3) (.pIN) 

except that dimensions of 1 are 
ignored. If a list element is 
vacant, all possible index values 
are used. 



2 3 4pi24 
12 3 4 
5 6 7 8 
9 10 11 12 



(Two planes, three rows, four columns.) 



13 in 15 16 
17 18 19 20 
21 22 23 24 



The last example shows that a rank-3 array is printed as a number 
of matrices separated by 1 blank line. A rank-4 array would be 
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printed as a number of rank-3 arrays separated by two blank 
lines, and in general, a rank-tf array is displayed as a number of 
arrays of rank N-l separated by N-2 blank lines. An empty array 
prints as a blank line. 

One often visualizes an array as a spatial arrangement of 
values. The spatial conceptualization leads to use of terms like 
"shape of array" and "vector along the Kth coordinate." These 
terms are important enough to give precise meanings for them. We 
define the "shape of an array" to be the result given by the size 
function (to be discussed in this section) . As a consequence, a 
vector and a one-row matrix have different shapes, even though 
they may be visualized to look the same (and in fact, the system 
prints them identically) . We define "a vector along the Kth 
coordinate" to be a vector of those elements in the array for 
which the coordinates other than the Kth are the same, and the 
Jth element of the vector has J as its Kth coordinate in the 
array — that is, a line of values aligned in the direction of the 
Kth coordinate. 



RESHAPE: R*-VpB 

The reshape function was used in some of the previous 
examples to form arrays. The function forms a result having the 
dimensions specified by the vector (or scalar) left argument and 
having elements taken from the right argument. Elements are 
taken in first to last order, and if they are exhausted, they are 
used again beginning with the first. The right argument must 
not be empty unless the result will be empty- -"re shape never 
makes something out of nothing." 

ORDERING OF ELEMENTS 

The elements of an array are considered to be ordered. The 
reshape function takes elements according to this ordering. The 
ordering is the same as the order in which the elements are 
printed by a terminal. The order is called odometer order 
because the indices (coordinate positions) vary in the same way 
as the digits of an odometer. For example, for an array A3 
having dimensions 2 3 4 the elements in odometer order are: 

43[1;1;1] 
i43[l;l;2] 
A3[l;l;3] 
A3Ll;l;hl 
i43[l;2;l] 
i43[l;2;2] 



43[2;3;4] 
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SIZE: R+pB 

The size function returns a vector of the dimensions of its 
right argument. Because there is one element in the result for 
each dimension of B, the result has elements for a scalar B, 1 
element for a vector, 2 elements for a matrix, and so forth. 
Note that because pS has one element for each dimension of B, 
ppB gives the rank of B as a one-element vector. The following 
examples illustrate the size function for arrays of various ranks: 



P3 



PP3 



(A scalar.) 

(A blank line indicates an empty vector 
result. ) 



3 
1 



pi3 
PP i3 



(A vector. ) 



2 3 



p2 3pi6 (A matrix) 
pp2 3pi6 



2 3 5 



p2 3 5pi30 (A rank-3 array.) 



pp 2 3 5pi30 



RAVEL : Z*-,B 

The ravel function returns a vector result containing all 
the elements of the right argument in odometer order. For 
example: 



,2 3pi6 (Changing a matrix to a vector.) 

12 3 4 5 6 



P,3 



(Changing a scalar to a vector.) 



The ravel function can be used to determine the number of 
elements in an arbitrary array. The number of elements in B is 
p,B. (Note that the ravel function could be omitted in this 
expression if B were always a vector.) 
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INDEXED SELECTION : R+B [ II ; 12 ; 13 ; 



;IN1 



Indexed selection chooses those elements of an array for 
which all indexes occur in the respective list elements. For 
example, if M is a matrix, M[3;<+] gives the element having 3 as 
its row index and n as its column index. Similarly, Ml2 3;4 5 J 
gives those elements in the second and third rows that are also 
in the fourth and fifth columns. If a list element is vacant, 
\N is used, where N is the length along that coordinate. The 
index values must be integers in the range of coordinates of 
elements in 3. The index list for an array of rank k must have 
K-l semicolons. The result R has the dimensions 

(pJl),(pJ2),(pJ3) (pJff). Hence the rank of R is the sum 

of the ranks of the indices. If the indices are vectors, the 
result satisfies 

RiKl;K2;K2; ... ; KNl=B\_ II LK1 ] ; I2LK2 ] ; J3 [Z3 ] ; ... ;INlKNll 
When the indices are not all vectors, the result is: 

((pJi).(pJ2),( p J3) (pJff))pB[,Ji;,J2;,J3; ... ;,Iff] 

Indexed selection cannot be applied to a scalar. The following 
examples show indexed selection applied to vectors and matrices: 



7«-3 6 9 12 
3 

vim 
12 

07: INDEX ERROR 
VI 51 

/ 

Vi 5 ; 6 ] 
06: RANK ERROR 
/[5;6] 

/ 



(An error results from a request 
for an element that does not exist. ) 



(Because v is a vector, its rank is 
incompatible with the index list.) 



7C1 2 1 1 2] 
3 6 3 3 6 



[WI/+-3 i+ pi 12 
12 3 4 
5 6 7 8 
9 10 11 12 

#[2;3] 
7 

ML 2; 1 
5 6 7 8 

W[;3] 
3 7 11 



(Row 2, all columns.) 
(All rows, column 3.) 
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7 8 



3 1 
7 5 
3 1 



M[2;3 *+] 
Mil 2 1;3 1] 



D*-*-^ 5p 232342353213131 
2 3 2 3 4 
2 3 5 3 2 
13 13 1 

_l£l_ (A matrix of characters,) 

I 1 

INDEXED SPECIFICATION: i?[Jl;I2;J3; ... ;INl+B 

Indexed specification allows setting of selected elements of 
R. The index list indicates elements to be set in the same way 
as for indexed selection (see previous section) . The 
restrictions on list elements are also the same as for indexed 
selection. The array B must be a scalar (or one-element array) 

or must have dimensions (p Jl ) , ( P I2 ) , (p 13 ) (pIN) except that 

dimensions of length 1 are ignored in the comparison. If B is 
not a scalar (or one-element array) , the elements of B are taken 
in odometer order and placed in appropriate locations in R. If 
two elements of B are placed in the same position in R, the last 
one in odometer order in B prevails. Both R and B must be of the 
same type (i.e., character or numeric). The shape of R is not 
changed by the operation. R must not be a scalar. 



7-<-3 6_9 
7[2]<- 1 
V 
3 19 

7[2 3]-<-10 12 
V 
3 10 12 

7C3 3J«-15 16 
V 
3 10 16 



D<-A7-<-2 3p'*' 



** * 
** * 



5-6 



60454000 A 



Mil ;1 2 3]-f-'o' (A scalar is used repeatedly.) 

M 



ooo 
*** 



M[;l>'[]' (All rows, column 1.) 

M 
Doo 
0** 

M[l;2 3>'+x' 

M 

D+x 
□** 
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Section 6. Mixed Functions 

The class of mixed functions includes all functions that are 
not system functions, composite functions, or scalar functions. 
Because few patterns exist between the mixed functions, they must 
be discussed individually to describe the arguments they allow 
and the results they produce. Section 5 already discussed the 
three mixed functions reshape, size, and ravel. Table 6-1. 
contains a summary of the mixed functions discussed in this 
section. 



EXCEPTION RULES 

Most of the mixed functions have "normal" cases for which 
the results are relatively simple to express in terms of the 
arguments. They also generally have additional special cases 
that are convenient but are treated as exceptions. The following 
are some of the reasons these exceptions are allowed: 

Exceptions to overcome notational difficulty . There is 
no way to represent an empty numeric vector constant in 
an expression, and i0 is inconvenient to use as a left 
argument because it must be surrounded by parentheses. 
Hence ' ' pB is allowed in place of (iO)pS. However, 
the only other case where an empty character argument 
is allowed where a nonempty character argument would 
not be is the catenate function. (However, the system 
functions USTOP, UTRACE , and ULTIME also allow empty 
character left arguments . ) Another class of exceptions 
to overcome notational difficulty arises because it is 
not possible to type a one-element vector constant. 
Because a constant consisting of a single character or 
number is a scalar, many functions allow a scalar in 
place of a one-element vector. However, the left 
argument for index-of and the arguments to grade up and 
grade down are not allowed to be scalars. 
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Table 6-1. Summary of Mixed Functions in Section 6. 



Function Description, Examples 


\B 

Index 
generator 


Produces a vector of the first 
B integers. x 5-s-^-i 2 3 4 5 


VxB 
Index -of 


For each element of b gives 
the first index in the vector 
V where the element is found 
or i+ P 7 (in 1-origin) if the 
element is absent from v. 
5 6 7 816 5 2-s-+2 1 5 


AcB 
Membership 


Returns 1 for each element of 
A that occurs in b and returns 

for other elements of a . 

1 3 5e2 3-f->0 1 


S1?S2 
Deal 


Chooses 51 random numbers from 
i 52 without any duplications. 


kv 

Grade up 


The jth element of the vector 
result is the index in v of 
the jth smallest value in v. 
VlkV~] gives v sorted in increasing 
order. ^3.3 5.2 l.l«->3 1 2 


Grade down 


The jth element of the vector 
result is the index in v of 
the jth largest value in v. 
VlWl gives v sorted in decreasing 
order . 


A,lKlB 
Join 


Joins a and b along the #th 
coordinate, l 2 3,4 5«-->- 
12 3 4 5 


V/lKlB 
Compress 


The result includes elements 
along the zth coordinate of b for 
which there are corresponding i ' s 
in v and does not include elements 
for which there are ' s in v . 
1 1/1 2 3+-+1 3 10 1/MBC'^MC 
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Table 6-1. Summary of Mixed Functions in Section 6, Continued. 



Function Description, Examples 


VMKIB 
Expand 


Expands by inserting zeros (if s 
is numeric) or blanks (if b is of 
character type) where there are ' s 
in V and selects consecutive 
elements along the Kth coordinate 
of B where there are l's in v. 
10 1 0\3 4<--*3 4 
1 UMB'^M B< 


A+B 
Take 


Selects the first (if A[K]>o) or 
last (if AlKl<0) \ALK1 elements 
along the Kth. coordinate of b . 
If \ALK1 exceeds (pB)LKl, 
zeros or blanks are used as the 
extra elements. 3 + 1234 5«--»-l 2 3 
~Z\<ABCDE*++ X CDE' 4 + 1 2<-+l 2 


A\B 
Drop 


Drops the first (if A[K1>0) or 
last (if AIK1<0) \ALK1 elements 
along the Zth coordinate of B. 
If UCZ] exceeds (pS)CA], 
the Kth dimension of the result 
is zero. 3+1 .2 3 4 5«-->-4 5 
"3+ ' ABODE •-f-^Mfi' 


Reverse 


Reverses the order of elements 
along the Kth coordinate of B . 
$5 6 7-s--*7 6 5 $ l ABCD*++*BCBA ' 


AWKlB 
Rotate 


Shifts vectors along the Kth 
coordinate of B in a negative 
direction (for A>0) or positive 
direction (for A<0) . 
2*1 2 3 4 .5<-->-3 4 5 12 
2$ l ABCDEi++ , DEABC* 


Monadic 
transpose 


Reverses coordinates of B. 
p§B*~*-$pB 


A<s/B 

Dyadic 
transpose 


Interchanges coordinates of B 
according to A. 

The Kth coordinate of the result 
corresponds to the (A=K) / ipA 
coordinate of 5. 
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Table 6-1. Summary of Mixed Functions in Section 6, Continued. 



Function Description, Examples 


A LB 
Base 
value 


Evaluates B as a number 
represented in a number system 
having radices A. 

2 2 2x1 l-*~>-5 10 10 10x2 3 4«-->-234 


AjB 
Represent 


Represents B in the number system 
having radices A. 

2 2 2T5-*-+l 1 10 10 10T296+-*2 9 6 


Execute 


Executes the character vector B 
as an APL statement. 

i. ' i 5 ' -f-KL 2 3 4 5 


Ti9 

Monadic 
format 


Produces a character array represen- 
tation of B. Except for treatment 
of lines longer than UPW , 
▼5 looks exactly like B when printed. 


A-wB 
Dyadic 
format 


Represents columns of B 
according to the format specified 
by pairs of numbers in A . The 
first element of a pair in A is 
the width of the field (.0 to have 
the system choose a width) , and the 
second element of the pair gives the 
number of digits beyond the decimal 
if positive. If the second element 
of the pair is negative, its absolute 
value determines the total number of 
digits, and exponential format is 
used. 


m 

Matrix 
inverse 


Matrix inverse of B. Same as 
-TBS where I is an identity 
matrix. 


AMB 
Matrix 
divide 


Solution to a system of equations 
(for a square matrix B] or least 
squares regression coefficients 
(if B has more rows than columns) . 
Same as (fflB) + .M. 
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Exceptions to ignore dimensions of 1_. At times it is 
convenient To treat a row or coTumn of an array as a 
vector, while at other times it is more convenient to 
treat it as a matrix. Consequently, some flexibility 
has been built into functions to allow extra or missing 
dimensions of 1. 

Generalized scalar extension . The dyadic scalar 
functions allow a scalar argument to be used repeatedly 
with all elements of the other argument. More 
generally, some mixed functions allow a single vector, 
plane, etc. to be used repeatedly with parts of the 
other argument. 



ARRAY TYPES 

An array, even if it is empty, is either of character type 
or numeric type. Those mixed functions that rearrange elements 
of an array or select elements of an array always return a result 
having the same type as the right argument. For example, 
Op *ABCd* gives an empty result of character type. 

AXIS OPERATOR 

For several of the mixed functions (and composite functions) 
an axis operator can be used to specify the coordinate along 
which the operation is to be performed. If no axis is specified, 
the last coordinate is assumed. Alternate symbols can be used to 
perform the operations along the first coordinate. These forms 
are: 

Last coordinate First coordinate Kth coordinate 



A,B 


A- % B 


AAK1B 


A/B 


A/B 


A/LK1B 


A\B 


A\B 


AMK1B 


*>B 


OB 


*>IK1B 


A$>B 


AQB 


AQlKlB 



Note that the symbols for performing the operations along the 
first coordinate are not allowed to be used with an axis 
operator. For example, elKlB would produce a SYNTAX ERROR. 

The value used for an axis operator must be a one-element 
array, and for functions other than join, it must be an integer 
in xppB (except that if 5 is a scalar, it may be Qio) • For the 
join function (e.g., A,lK]B) the value of K should be an integer 
in 1 (ppjj) T(ppB) Tl or an Y half integer obtained by adding or 
subtracting .5 from one of those integers. 
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INDEX GENERATOR: R+\.B 

The index generator function produces a vector of length B 
containing the first B integers. The result depends on the 
current origin. 

Requirements for B_. B must be a one-element array containing a 
nonnegatxve integer. 

Examples . 

1 3 (In 1-origin. } 

12 3 

x5 
12 3 4 Cln 0-origin.) 

t.0 

CBlank line indicates v0 is empty.) 



INDEX- OF: R+Vi.B 

The index-of function returns for each element of B the 
least index I in the vector V for which 7[X] equals the element 
of B. if no value in V is equal, the result element is l+p7 in 
1-origin, or pF in 0-origin. When V and EL are numeric, the 
comparisons use UCT so that elements of V and B may be considered 
equal even if they differ slightly. 

Requirements for V_ and S. V must be a vector — a scalar is not 
allowed. B may be of any shape and the result will have that 
shape . 

Examples . 

4 5 6t2 5 
4 2 

D+M+2 3p LDEFGRI 1 
DEF 
GHI 

l HTDE B0G l \M 
3 4 9 CA matrix result for a matrix right argument.) 

8 12 

7 8 9^43' 



4 4 



(Characters never equal numbers . ) 
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X ABA* x^ABAB* 
12 12 

nio+o 

'ABA'x^ABAB* 
10 1 (The 0-origin result is 1 less.) 

MEMBERSHIP: H<-AeB 

The membership function returns 1 for each element of A that 
occurs in B. For numeric arguments the comparisons use the 
current value of UCT , so values may differ slightly and still be 
considered equal. 

Requirements for A_ and B_, A and B may have any shape. The 
result has the same shape as A. 

Examples . 

1 2 3e3 16 4 9 
10 1 

MSCZM £ » BACKS' 
1110 

U+A+-2 3p 'CATDOG' 
CAT 
DOG 

Ae'GOAT* 
Oil 
Oil (The result has the shape of the left argument.) 

'GOAT'eA 
1111 

MBC'el 2 3 4 




DEAL: R«-S1?S2 

The deal function chooses at random 51 values from i52 
without repetitions. 

Requirements for Si and S2 , Both Si and S2 must be one-element 
arrays containing nonnegative integers such that 51 ^52 . The 
result is a vector of length 51 . 
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Examples . 

3?5 

3 1 >( 

3?5 

4 5 3 

5?5 
12 5 3 4 

UIO-0 
5?5 
3 2 14 (0-origin.) 

GRADE UP AND GRADE DOWN: H+bB and R^B 

The ith element of the vector result r is the index in b 
where the jth smallest (for grade up) or the jth largest (for 
grade down) element of b occurs. The comparisons do not use UCT< 
If a value occurs more than once in B f the indices of those 
values occur together in R in increasing order. 

Regu ir emen t s for b_. B must be a numeric vector. The result r is 
a numeric vector of the same length as s. 

Examples . 

i3.3 1.1 2.2 4.4 1.1 5.5 
2 5 3 14 6 

t3.3 1.1 2.2 4.4 1.1 5.5 
6 4 13 2 5 

7<-3 .3 1.1 2.2 4.4 1.1 5.5 

VlhVl (To sort in increasing order.) 

1.1 1.1 2.2 3.3 4.4 5.5 

Vl^Vl (To sort in decreasing order.) 

5.5 4.4 3.3 2.2 1.1 1.1 

P-*-3 4 5 12 

( 'ABCDE'lPDlbPl (4P is the inverse of a permutation 
ABODE vector P.) 



X+'ABC* 
Y+'DEF* 
Z«-'GtfJ' 

{X,Y,Z)lkh 02112002 1] 
AGDEHBCIF (gelect next from x for a 0, y for a 1, 

Z for a 2 . ) 
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nio*-o 

43.3 1.1 2.2 
12 (0-origin.) 



JOIN: B+A.tKlB 



The join function connects A and B along a coordinate 
already existing in A or B or along a new coordinate of length 1 
inserted into each. The first elements along the coordinate come 
from A and the rest come from B. When K is an integer, the 
operation is called catenate. When K is not an integer, the 
operation is called laminate and the new coordinate of length 1 
is inserted into each argument between the existing \_K coordinate 
and [K coordinate. 

Requirements for A_ and B. Except for the special cases below, 
A and B must have the same rank, and dimensions other than the 
Kth must be the same; that is, (K*\ppA) /pA and (J?*ippB)/pB must 
be the same. The types of A and B must be the same unless one or 
both are empty arrays. (Warning: some APL systems do not allow 
empty arrays to have a different type. It is recommended that 
differing types be avoided for compatibility. ) The shape of the 
result is the same as the shape of the two arguments except that 
the Kth coordinate of the result is (pA )[#]+( pB) [Z] . If both 
arguments are empty and of differing types, the result is numeric. 

Exception cases . If A or B is a scalar (but not both) , it is 
reshaped to have the shape of the other argument except that the 
.Kth dimension is 1 for catenate. If both arguments are scalar s, 
they are treated as one-element vectors for catenate. For 
catenate, one argument may have a rank 1 less than the rank of 
the other argument. In this case a new coordinate of length 1 is 
inserted to become the Kth. 



Examples 







1 2 3,4 5 6 


1 2 


3 


4 5 6 
U+M+2 3p'*« 


*** 






*** 




U+N+3 3p'o« 


ooo 






ooo 






ooo 




M,[llN 


*** 






*** 






ooo 






ooo 






ooo 
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DDDD 
DDDD 



D-*-L«-2 4p , D' 



M,L 
***DDDD 
***DDDD 



*** + 



M, ' + ' 



(The scalar is treated as a one-column 

matrix.) 

M,'34' (A vector is treated as a one-column 

***3 matrix.) 

***4 



*** 

*** 
345 



12 3 

4 5 6 



1 4 

2 5 

3 6 



M,[l] , 345' (A vector is treated as a one-row matrix.) 



1 2 3,[.5]4 5 6 (Laminate along a new first coordinate.) 



1 2 3,[1.5]4 5 6 (Laminate along a new last coordinate.) 



1 2 3,[1.5]4 



1 4 

2 4 

3 4 



COMPRESS: B+V/lKlB 

The compress function shortens B along the #th coordinate 
by omitting those elements for which there are corresponding O's 
in V. 

Requirements for V_ and £. V must be a vector and all elements of 
v must be 1 's or O's. The length of V must be the same as 
(pB)lK]. The result has the same dimensions as B except that the 
#th dimension is +/V. 

Exception cases . If V or B is a scalar it is treated as a 
one-element vector. Then if V is a one-element vector, it is 
extended to the length of B along the #th coordinate. If B is a 
one-element vector, it is extended to the length of V. 
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Examples . 

10 10 1/1 2 3 4 5 
13 5 

1 10 1/ 'ABODE' 
ACE 

1/ 'ABODE' 



ABODE 



0/' ABODE' 

(Blank line indicates an empty result. ) 

U+M+3 4pil2 

12 3 4 
5 6 7 8 
9 10 11 12 

10 1 1/Af 

13 4 
5 7 8 
9 11 12 

l o l/[i]M CSame as i o l/M. ) 

12 3 4 

9 10 11 12 

1 1/4 

4 4 

pl/2 
l (Scalar right argument, but vector result.) 

EXPAND: R+V\lK]B 

The result is formed by expanding B along the Kth coordinate 
by filling with zeros (if B is numeric) or blanks (if B is of 
character type) in. those positions in R for which there are 
corresponding 0's in V. 

Requirements for V and B. Ignoring the special cases, V must be 
a vector containing onTy l's and 0's such that (+/F) =( pB) [Kl . 
The result R has the same dimensions as B except that the Zth 
dimension is pV. 

Exception cases . If V or B is a scalar, it is treated as a 
one-element vector. 
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Examples . 

10 10 1\1 2 3 
10 2 3 

D+M+2 3pi6 
12 3 
4 5 6 

1 1 1\M 
10 2 3 
4 5 6 

1 1\[1]M (Same as 1 1\M.) 
12 3 


4 5 6 

pl\2 
1 (A vector result. ) 

1 »=o\ , « (An empty array can be expanded.) 

1 

0\i0 



TAKE: R+ViB 

The take function selects WlKl first elements (for 7[Z]>0) 
or last elements (for VlKl<0) along the Kth coordinate of B. If 
I Y&C] exceeds (pB)[Z] f zeros (if B is numeric) or blanks (if B is 
of character type) are used to provide the extra elements. 

Requirements for V and S. Ignoring the special cases below, v 
must be a vector having an integer for each dimension of s. That 
is, (pF)=pp£. The result E has dimensions \V. 

Special cases . If 7 is a scalar, it is treated as a one-element 
vector. If B is a scalar, it is treated as a one-element array 
of rank pV. 

Examples . 

3+1 2 3 4 5 
12 3 

"3+1 2 3 4 5 
3 4 5 

3+* ABODE* 
ABC 
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5 + 1 2 3 
12 3 

D*-M-<-3 4pil2 
12 3 4 
5 6 7 8 
9 10 11 12 

2 ~5+M (First 2 rows, last 5 columns.) 

12 3 4 
5 6 7 8 

3+t0 (Take can be applied to an empty array.) 


2 3+5 (5 is treated as a 1 by 1 matrix.) 

5 




DROP: R+VlB 

The drop function forms its result by omitting WtKl first 
elements (if 7[£]>o) or last elements (if 7[£]<0) along the Kth 
coordinate of B. 

Requirements for V_ and s. Ignoring the special cases below, V 
must be a vector of integers, and pV must be the same as ppB. 
The result has dimensions o[ (pB)-\V. 

Special cases . If v is a scalar, it is treated as a one-element 
vector. If B is a scalar, it is treated as a one-element array 
of rank pV. 

Examples . 

3+1 2 3 4 5 

4 5 

'l^'ABCDEF 1 
A BCD 

104-1 2 3 

(Blank line indicates an empty result.) 

CKM-<-3 4pil2 
12 3 4 

5 6 7 8 
9 10 11 12 

1 ~2 +M (First row and last 2 columns are dropped.) 

5 6 
9 10 
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pO + 3 
1 1 (The scalar was treated as a matrix.) 

(i0H3 

3 



REVERSE: E+4>lKlB 

The reverse function reverses the order of elements along 
the Kth coordinate of B. The result has exactly the same shape 
as B. 

Examples . 

<J> 3 4 5 6 
6 5 13 

Q'ABCDEF' 
FEDCBA 

U+M+3 4pil2 
12 3 4 
5 6 7 8 
9 10 11 12 

4 3 2 1 

8 7 6 5 

12 11 10 9 

%M (Same as <J>[l]Jif.) 

9 10 11 12 
5 6 7 8 
12 3 4 



ROTATE: R+AWKlB 

The rotate function shifts elements of B along the Kth 
coordinate a number of positions specified by A. For positive 
elements of A, the elements move so that their indices decrease, 
and for negative elements of A their indices increase. Elements 
shifted beyond the end are replaced at the other end. The 
absolute value of the elements in A gives the number of positions 
the corresponding vector along the .Kth coordinate of B is shifted. 

Regu ir eraent s for A_ and £. Ignoring the exceptions below, A must 
have one element for each vector in B along the Kth coordinate. 
That is, pA must be (Z*ippB)/pB. Thus the dimensions of A must 
be like those of B except that the Kth dimension of b is absent 
from A . The result has the same shape as B. 
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Special cases . If A is a scalar, it is extended to become an 
array having dimensions suitable for B. Rotation of a scalar is 
allowed/ but the left argument must be a scalar, and the result 
is the same as B. When the right argument is a vector or a 
scalar, the left argument may be either a scalar or a one-element 
vector. 

Examples . 

2 $ 1 2 3 4 5 (Rotation by 2 positions to the left.) 

3 4 5 12 

~2 4> A 2 3 4 5 (Rotation by 2 positions to the right.) 

4 5 12 3 



2 $ l ABODE* 



CDEAB 



CH-B«-3 4p\12 
12 3 4 
5 6 7 8 
9 10 11 12 

"i- 2 ♦ B 
12 3 4 (Rows are shifted. ) 
8 5 6 7 
11 12 9 10 

"l 1 2 9-B (Same as ~l 1 2 $Ll]B. ) 
1 10 7 12 

5 2 11 4 

9 6 3 8 

1 (|> B 
2 3 4 1 
6 7 8 5 

10 11 12 9 (All rows are shifted by 1.) 



MONADIC TRANSPOSE} R+§B 

The monadic transpose function reverses the coordinates in 
B. Thus the last coordinate in H corresponds to the first in B, 
the second to the last corresponds to the second in B, and so 
forth. For a vector or scalar, the result is the same as the 
argument. For a matrix, the result is the usual matrix 
transpose. For an array of rank 3, Bri-.J-.K] is the same as 
BLK'.JiU. The shape of the result is $pB. 



Examples. 



1 2 

5 6 
9 10 



3 4 

7 8 

11 12 



4ptl2 
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15 9 

2 6 10 

3 7 11 

4 8 12 



FOUR 
FIVE 
FORT 



D^C-s-3 Hp'FOURFIVEFORT' 



*C 



FFF 
010 
UVR 
RET 

0+i?3«-2 3 4pi24 
12 3 4 
5 6 7 8 
9 10 11 12 

13 14 15 16 
17 18 19 20 
21 22 23 24 

pW3 



$2? 3 



4 3 2 



1 13 
5 17 
9 21 



2 14 

6 18 

10 22 



3 15 

7 19 

11 23 



4 16 

8 20 

12 24 



DYADIC TRANSPOSE: J?+7W 



The dyadic transpose function interchanges coordinates of B 
according to the integer values in the vector V . 
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Requirements for y and b_. Ignoring the special case below, v 
must be a vector having one element for each dimension of b — that 
is, v and b must satisfy (p7)=ppB. The elements must be integers 
such that {\[/V)cV and Ve\[/V (all integers up to the largest 
element in v but no other values). The rank of r is \ /v in 
1-origin or l+T/7 in 0-origin. The jth dimension of R is 
L/(7=D/pS. The jth coordinate of b becomes the y[j]th 
coordinate of R. If two or more coordinates of B map into the 
same coordinate of R, the length along that coordinate is the 
least of the related dimensions in B. 



Special case . 
vector. 



If V is a scalar, it is treated as a one-element 



Examples , 



A BCD 
EFGH 
IJKL 



A EI 
BFJ 
CGK 
DHL 



AFK 



Otff-3 Hp'ABCDEFGRIJKL* 

2 1 $ M 

{BLI;J1=BM;I1.) 

1 1§M (i?[J]=BCI;J] . The diagonal of the matrix. 
Note that the length is the shorter 
of the two dimensions of the matrix.) 



D-f-B-f-2 3 4pi24 
12 3 4 
5 6 7 8 

9 10 11 12 

13 14 15 16 

17 18 19 20 

21 22 23 24 

2 1 3 S? B 
12 3 4 

13 14 15 16 

5 6 7 8 (RlI;J;Kl=BLJ;I;Kl.) 

17 18 19 20 

9 10 11 12 

21 22 23 24 . 
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1 1 1§B 
l 18 (i?CJj=B[I;J;J]. The main diagonal.) 

1 2 1W 
15 9 
14 18 22 (i?[I;/]=BCJ;«7;I]. A diagonal slice.) 



2 1 2«?B (i?[J;J]=B[J-;J;J].) 



1 14 
5 18 
9 22 



The expressions to the right which relate elements of b, V, and 
R are formed as follows: The indices applied to R are 
(T/7)p X IJKL. . . ' , and the indices applied to b are ' UKL . . . ' LV1. 



BASE VALUE: R+AiB 

The base value function evaluates its right argument as a 
representation of a number in a general number system described 
by its left argument. For example, 2 2 2±1 1 gives 5; the 
vector 1 1 is evaluated as a number represented in base 2. The 
left argument, 2 2 2, contains the radices of the number system. 
(Radices are ratios between the weightings of the positions.) 
For the simple case of a vector left argument A, the Kth 
weighting (in 0-origin) is x/{-K)\A. That is, the £th weighting 
is the product of the last K elements of A . If W is a vector of 
these weightings, the result for A±B is W+.x-B. Thus for the case 
2 2 2±1 1 the result is +/4 2 1*1 1. 

Requirements for A and b. Except for the special cases below, a 
and B must satxsfy (~l-t-pj4 )=l+pB (the last dimension of A must be 
the same as the first dimension of 5) . For arrays A and b, the 
vectors along the last coordinate of A are used to find vectors 
of weightings, and each vector along the first coordinate of b is 
evaluated according to each vector of weightings. The weightings 
are W+$x\(pA )t<M,l • The result is then w+.y-B. The result has as 
dimensions ( l*pA ) ,l + p3 (same as the dimensions of A + .v-B)- 

Special cases . If A or B is a scalar, it is treated as a 
one-element vector. If the last dimension of A does not match 
the first dimension of B but one of the two dimensions is 1, that 
dimension is extended to match the other. 

Examples . 

24 60 60X1 2 3 
3 7 23 (One hour, two minutes, and 

3 seconds is 3723 seconds.) 
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6 60il 2 3 (The first element in the 
3723 left argument has no effect.) 

U+A+2 3p2 2 2 10 10 10 
2 2 2 
10 10 10 

U+B+3 4p 113201401053 
113 2 
1 4 
10 5 3 

,4x2? (Each vector along the first coordinate of b 
5 6 2 5 11 is evaluated according to each vector 
101 110 345 203 along the last coordinate of 4.) 

.5x3 4 5 (Evaluates the polynomial (3*. 5*2)+ 
7.75 (4x.5)+5. T ^ e left argument is extended 

to become a 3-element vector.) 



REPRESENT: R*-AtB 

The represent function represents its right argument in the 
number system described by its left argument. For example, 2 
2 2t5 gives 101. The left argument contains the radices of the 
number system. For a vector left argument and a scalar right 
argument, the result is given by the following function: 

VR+A SREP B1N1UCT 
[1] N+pA 
[2] R+NpUCT+O 
[3] Ll:-*(/7=0)/0 
[4] lilNl+AlNl'lB 
[5] B+B-RLN1 
[6] -»(F = 0)/0 
[7] B+B*AlNl 
[8] N+N-l 
[9] +L1 V 

This function is a generalization of the usual method of 
converting between number systems by dividing and finding 
remainders. 



Requirements for A_ and B_. A and B may have any shape. Each 
element of B Ts represented according to the radices in each 
vector along the first coordinate of A. (If A is a scalar, it 
is treated as a one-element vector for this operation.) The 
dimensions of the result are ( P A) ,pB (i.e., the same as for outer 
product) . 
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Examples , 



2 7 3 



10 10 I0T273 



24 60 60T3723 (3723 seconds is 1 hour, 
12 3 2 minutes , and 3 seconds . ) 



111 



2 2 2T31 



(High-order information is lost.l 



2 2T31 



7 11 



2 

3 8 

4 1 



10 
2 10 
2 10 



(High-order information is 
intercepted by using a zero. I 



10 10 10T34 281 



D*-i4-*-3 2p0 10 2 10 2 10 



4T281 323 



7 80 

2 3 

1 
8 2 

1 J. 
1 3 



EXECUTE: R+iB 

The execute function performs the APL statement in the 
vector or scalar ^5. A result is returned only if the expression 
produces a result. When the execute function is performed as the 
last operation on a line, any result is automatically printed 
unless specification or a branch was the last operation within 
the argument. Branching in the argument has no effect, and any 
statement label is ignored. Xf execute is applied to a character 
argument representing a list, the list is printed and the first 
list element is returned as the result of the execute function. 
Note that the present system does not allow expressions exceeding 
150 characters to be executed. (Some statements of as few as 87 
characters give a LIMIT ERROR . } 
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Examples . 

±'1 24 48' (Converting characters to numbers.) 
1 24 48 



20 



12 3 



234 



2 



X+l 2 3 
+/±'X+X*2' 



P-f-lM-f-13* 

P 



P-«-± • 2 ; 3 ; 4 » 



P 



MONADIC FORMAT: P"<-tB 

The monadic format function returns a character array that 
when printed looks exactly like B (except possibly when UPW is 
exceeded, in which case numbers in tB could be split between 
lines) . An argument of character type is returned unchanged. 
For a numeric argument, each column of B becomes several columns 
in the result ' (depending on UPP and the numbers in the column) , 
but the other dimensions of the result are the same as for the 
argument. Thus the rank of_P is the same as the rank of B, and 
pP matches p£ except that 1+pP (the last dimension of R) is 
generally greater than 1 + pB (the last dimension of B) . Note 
that the exact output format differs between APL systems and may 
even differ between versions of the same system. Programs should 
be written to be independent of such differences. 

Special case . A scalar numeric argument is treated as a 
one-element vector and thus produces a vector result. 

Examples . 

▼1 2 3 



12 3 



pTl 2 3 



V3 4pil2 
12 3 4 
5 6 7 8 
9 10 11 12 
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pT3 4pil2 
3 10 

▼ MS' 
AB 



DYADIC FORMAT: Z+VvB 



The dyadic format function represents columns of B according 
to pairs of integers in the vector V. The first number of a pair 
in 7 gives the width, and the second number gives the precision 
to be used in representing the number. The width is the number 
of character positions to be used for the column, and if is 
used, the system chooses a width so that at least one blank will 
separate that column from the preceding column. The result R has 
the same dimensions as B except that the last dimension of i? is 
usually greater than the last dimension of B. Character 

arguments are not allowed. The precision has the following 
significance: 

precisions o The numbers are represented in decimal format. 
The precision is the number of digits beyond 
the decimal point. If the precision is zero, 
no decimal point appears. 

precis ion<0 The numbers are represented in exponential 
format. The number of digits shown is the 
absolute value of the precision, and if the 
number of digits is 1, no decimal point 
appears. Five columns are reserved for the 
exponent when the system chooses the width. 
When the width is provided the number of 
columns reserved at the right for the exponent 
is given by 5LW~D+1+1*D, where W is the width 
and D is the number of digits. 

If a number cannot be represented in the space provided, the 
field for that number is filled with asterisks. However, there 
is no requirement that spaces separate numbers in the same row. 

Exception cases . If B is a scalar, it is treated as a 
one-element vector. (Hence the result is a vector, never a 
scalar.) If V is a scalar or one-element vector, it is extended 
to become V*-0 ,V . (Thus the width of the columns will be chosen 
by the system.) Then if pV is 2 but ~ltpS (the last dimension of 
B) is not 1, V is replicated to become V+( 2* lfpB)p7 so that the 
pair of numbers in V will be applied to all columns. 
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Examples . 

7 3T.3456 2.8 928 
0.346 2.800928.000 

4T.3456 2.8 928 
0.3456 2.8000 928.0000 



101 
010 
101 



1 0*3 3pl 



10 3T3 lp2. 34567 4.23S18 ~5 . 3E & 



2.35ff0 

4.23£i8 

"5.3 0E 6 

~lTlff5 1.2ff6 1.82T2 
155 1E6 2E2 



MATRIX DIVERSE: JMBB 

The matrix inverse function returns the inverse of a matrix 
3. The inverse is such that 

where X is an identity matrix Ci.e., a matrix with l's along the 
diagonal and 0's elsewhere) having 1+pB rows and columns. Note 
that this uniquely defines R only as long as B has the same 
number of rows and columns. However, if B has more rows than 
columns, the result R can be uniquely defined by 
i?«~>-li($S) + .x5)-Kx$B. The result is related to the result for the 
dyadic matrix divide function according to EB++IWB , where I is an 
identity matrix having ifpB rows and columns. 

Requirements for B. Ignoring the exceptions below, B must be a 
matrix such that I 1 + pB) >"i-hpB (B must have at least as many rows 
as columns) and B must have an inverse. Note that some matrices 
do not have inverses and produce a DOMAIN ERROR if an inverse is 
requested. In particular, a square matrix with two identical 
rows or with one row that can be produced by multiplying other 
rows by factors and adding them has no inverse. Actually, there 
is no precise distinction between matrices that have inverses and 
those that do not, and UCT is used in the test. Decreasing the 
value of DCT may prevent a DOHATN ERROR, but the result so 
produced is less reliable and may be completely meaningless. The 
dimensions of the result are '4>pB (i.e., p§B) . 
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Special cases . If B is a scalar, the result is the scalar ±B. 
If n is a vector, the result is B*+/B*2. Except for the result 
rank, the scalar case is the same as if the scalar were treated 
as a one-by-one matrix, and the vector case is the same as would 
be produced by treating the vector as a one-column matrix. 

Examples . See the examples at the end of the following 
discussion of matrix divide. 

MATRIX DIVIDE: R+AEB 

The matrix divide function solves systems of simultaneous 
equations or finds least-squares regression coefficients. When 
the matrix B has the same number of rows and columns, R is the 
solution to linear equations represented by the constant vector 
A and the coefficient matrix B. When B has more rows than 
columns, the result R contains the regression coefficients for a 
dependent variable A and independent variables in the columns of 
B. Note that the result is the same as (EB)+.*A. 

Requirements for £ and B_. Ignoring _the special cases below, B 
must be a matrix such that (l+pB)>~ltpB, and B must have an 
inverse (see the preceeding discussion of the matrix inverse 
function). Also, A must be a matrix such that (l+p4 )=l+pB (they 
must have the same number of rows) . When A has more than one 
column, the result R has a solution column for each column of A. 
The result has the dimensions (1+pB) ,1 tpA (one row for each 
column of B and one column for each column of A). The result R 
satisfies B+.xR*-+A if B is a square matrix. When B is not a 
square matrix, the result minimizes each element of 

+ /U-5+.xj?)*2 

That is, B+.xR gives predicted values for the regression 
cofficients R, and A-B+.xR gives the residuals; so the sum of the 
squared residuals is minimized. 

Special cases . The arguments may also be scalars or vectors. A 
scalar is treated as a one-by-one matrix, and a vector is treated 
as a one-column matrix. After this extension, 1+pA must match 
1+pB. The dimensions of the result are (l+pS) ,1 + p.d where A and 
B here are the original arguments before extension. 

Example 1. To solve the system of equations: 

5= x + 2y 
4=5x + 3y 



Use: 



D-H\/-<-2 2pl 2 5 3 



1 2 
5 3 
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sum 

13 (A vector result.) 

(2 lp5 4)lAf 
1 
3 (A matrix result.) 

The answer is x=~l , y=3 . 

Example 2. Given 71-<-.8 .9 l.o 2.2 3.1, 72-<-l 2 3 12, and Y+-H.5 
6.6 9.2 8.3 7.1 find the values of Al and A2 that most nearly 
satisfy Y=(.A1*V1 )+A2*V2 in the least squares sense. 

U+Q+V1,L1 .5 372 
0.8 1 
0.9 2 
13 
2.2 1 
3.1 2 

DPP-f-3 

1.37 2.56 

The predicted values for Y are: 

e+. x z 

3.66 6.35 9.04 5.58 9.37 
and the residuals are: 

y-e+.xz 

0.845 0.252 0.159 2.72 2.27 

Example 3 . Using VI and 72 from Example 2 and Y2-<-6 . 5 8.6 11.2 
10.3 9.1, find Al , A2, and A3 that most nearly satisfy 
Y2=Al + (A2xVl )+A3*V2. This problem is like the previous one 

except that we imagine Al to be the coefficient of a vector of 
l's. The solution is given by: 

OB«-l , Q 
1 0.8 1 

I 0.9 2 

II 3 
1 2.2 1 
1 3.1 2 

Y2BB 
5.76 0, 593 1.35 
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Section 7 . Composite Functions 

As described in Section 3, an operator is a special function 
that takes functions as arguments and produces a function as a 
result. Except for the result of the axis operator, these 
resulting functions are the composite functions. A few examples 
will help to illustrate this. The expression +/1 2 3 ("the plus 
reduction of 1 2 3") is the same as 1+2+3. Similarly, -/l 2 3 is 
1-2-3 or 2 (remember that it is performed from right to left) . 
The function symbol to the left of the slash indicates the 
particular dyadic scalar function to be used. The forms for 
composite functions are d/B (reduction), d\s (scan), A° ,ds (outer 
product) , and Ad.DB (inner product) , where d and D represent 
symbols for any dyadic scalar functions. 

REDUCTION: R+d/ZKlB 

Reduction applies a dyadic scalar function repeatedly 
between elements in vectors along the Kth coordinate of B. For a 
vector B, the reduction is of the form 

B[l]dB[2]d ... dBlN] 

For higher order arrays the same sort of operation is performed 
for each vector along the .Kth coordinate. When the axis operator 
is omitted the operation is performed along the last coordinate. 
The alternate symbol + can be used to indicate the operation 
should be performed along the first coordinate. 

Requirements for B_. Elements of B must be in the domain of the 
scalar function used. Thus, character arguments are allowed only 
for the functions = and *. Except for the special cases below, 
the result has a rank that is one less than the rank of B and the 
dimensions of the result are (K*ippB)/pB (the same as the 
dimensions of B except that the Zth dimension of B is missing) . 
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Special cases . A scalar is treated as if it were a one-element 
vector, and the result is then a scalar. If the length of B 
along the jfth coordinate is 1, the result is the same as the 
argument except that one dimension is removed. No operation is 
actually performed in this case, so no check is made to see 
whether the values are in the domain of the function, except that 
arguments of character type are still illegal for functions other 
than = and *. When B is empty but the result is not empty, the 
result contains the identity element for the function if one 
exists. The following table shows the identity elements used. 
Note that in some cases the identity elements are identities in a 
rather loose sense. Some are right identities only, some are 
left identities only, some are both, and some are identities only 
for logical arguments. Functions for which there is no identity 
in the table produce DOMAIN errors when applied along a 
coordinate of length 0. 



Function 


Identity 


+ 







- 







X 




1 


■=• 




1 


r 


"1. 


26ff322 


L 


1. 


262322 


= 




1 


* 







Examples. 







Function Identity 



* 

A 

V 
t 

> 

< 

< 



1 
1 


1 


1 



1 





15 



f/3 1 9 15 



(Largest element.) 



L/3 1 9 15 



(Smallest element.) 



120 



x/1 



3 4 5 



(Product.) 



+/1 2 3 4 5 
15 (Sum.) 

-/I 2 3 4 5 (Alternating sum; same as 
3 l+(-2)+3+(-4)+5.) 

i/1 2 3 4 5 (Alternating product; same 
1.875 as (1x3x5)^2x4.) 

D+P+3 4pil2 
12 3 4 
5 6 7 8 
9 10 11 12 
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T/P (Largest element in each rcw.) 

t 8 12 

|"/P (Largest element in each column.) 
9 10 11 12 

+/3 (A scalar is treated as a vector.) 

3 

a/5 
5 (No domain check for one element.) 

+ /i0 
o (An identity if the length is zero.) 

+/3 OpO 
(An identity for each of the 3 rows . ) 

K/Ae.B (Gives 1 if all elements of the vector A 

occur in B . ) 

v/AeB (Gives 1 if any elements of the vector 

A occur in B.) 



SCAN: R+d\LK]B 

Scan performs a series of reductions. For example, +\l 2 3 
4 5 returns 1 3 6 10 15; that is, the Jth element is +/HB. For 
arrays other than vectors, the result has the same shape as the 
argument, and the elements along the Kth coordinate are produced 
by performing a reduction over the first I elements. Arguments 
of character type are not allowed. If the axis operator is 
absent, the last coordinate is assumed. The alternate symbol \ 
can be used to indicate the operation is the be performed along 
the first coordinate. 

v\0 10 10 
11111 

A\l 10 10 1 



x\l 2 3 H 5 6 
1 2 6 2<+ 120 720 

D«-P-«-3 Hpil2 
12 3i* 
5 6 7 8 
9 10 11 12 
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+\p 

1 3 6 10 
5 11 18 26 
9 19 30 42 

+\P (Same as +\[13F.) 

12 3 4 
6 8 10 12 
15 18 21 24 

OUTER PRODUCT: i?-M<>.dB 

Outer product applies a scalar dyadic function using all 
elements of A as left arguments and all elements of B as right 
arguments. The rank of the result is (ppi4)+ppB and the 
dimensions of the result are (pi4),pB. Each result element has as 
its first pp;4 indices the indices of the element used from A and 
has as its last ppB indices the indices of the element used from 
5. 

Examples . 

1 2 3o.xi+ 5 6 7 
4 5 6 7 

8 10 12 14 (Each element of the left argument is 
12 15 18 21 multiplied by each element of the right.) 

1 2 3».=3 1 3 
10 

10 1 

+/1 2 3°. =3 1 3 
10 2 (The number of l's, 2's and 3's 

in the right argument.) 

INNER PRODUCT: X+Ad.DB 

Inner product applies the scalar function D between each 
vector along the last coordinate of A and each vector along the 
first coordinate of B, then performs a reduction using d to that 
result. The usual matrix product is A+.*B. 

Requirements for A_ and B_. Ignoring the special cases belov;, the 
last dimension of A must match the first dimension of B. The 

dimensions of the result are (~l+p4 ) ,1+pB (all dimensions of A 
except the last and all dimensions of B except the first) . 
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ppA 


ppB 


ppi? 


2 


2 


2 


2 


1 


1 


1 


2 


1 



Special cases . If A or B is a scalar it is treated as a 
one-element vector. Then if the last dimension of a does not 
match the first dimension of b but one of the two dimensions is 
1, that dimension is extended to match the other (thus allowing 
the array having the 1 as a dimension to be used repeatedly) . 

Examples . The following table shows examples for arguments of 
various ranks. 



Result 

r c i -, j ] =a7TcT7] DB C ; J ] 

i?CJ]=d/4[J;]DS 
i?CJ]=dMDBC;J] 

The following examples illustrate useful inner products: 

D^f-2 3pl 
10 1 

10 

D"<-B-<-3 3p i 9 

1 2 3 
it 5 6 

7 8 9 

A+.xB CMatrix Product.) 

8 10 12 
4 5 6 

'ABCD • + . = X XZCD • (Counts matches in corresponding 

2 positions.) 



U+TABLE+3 4p *FOURFIVESrX » 



FOUR 
FIVE 
SIX 



TABLE*. =*FIVE' 
10 (Gives 1 for a row that matches 

'FIP'E'. ) 
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Section 8. System Functions and Variables 

This section discusses system functions and variables other 
than U, Br UFD , and USY, which are described elsewhere. System 
functions and variables allow communication with the APL system, 
and, to some extent, with the operating system under the control 
of which the APL system runs. In most respects system functions 
and variables behave as other APL functions and variables except 
that: their names are distinguished by beginning with the symbol 
D or 0, they control the APL environment in ways that other 
functions and variables cannot, and the values of system 
variables can change between settings. For example, UAI, which 
is a vector of accounting information, may be set by the user to 
any desired value, but the next time he requests its value, it 
will correctly reflect current accounting information — that is, 
the system resets the value of UAI before it is read. Similarly, 
UAI can be erased by the user, but the system gives it a value 
whenever its value is requested. 

The system variables that affect operation of the APL system 
have restricted shapes and domains. For example, UIO r the origin 
for indexing, must have a value of 1 or 0, Any attempt to set 
UIO to an improper value will result in a RANK ERROR or a DOMAIN 
ERROR. However, the user can erase UIO or declare UIO to be 
local to a function and then fail to assign it a value. When a 
system variable is undefined and its value is required for an 
operation, an IMPLICIT ERROR results. For example: 

1Z+I0TA B;UI0 {UIO is a local variable.) 
[1] Zi-ifl V 

IOTA 3 
01: IMPLICIT ERROR 
I0TAL11 Z+\B 

/ 
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Table 8-1. Summary of Section 8. 



I Ou 



Output Control 



UPP+integer (1 to 15; 

Printing precision — maximum number of significant digits 
used for numeric output. 

UPW+integer (30 to 131071; 

Maximum printing width used for output. 

UPL*-pagesize,linecount (0 to 131071; 

Print lines. Print lines to be used before a halt to allow 
the terminal operator to intervene, and count of lines used. 
If UPLlll is 0, output will be uninterrupted. 

QHT-t-integars 

Horizontal tabs. Indicates to the APL system where tab 
stops have been set on the terminal. 



Indicators affecting Primitive Functions 



UCT+number (0 to .01; 

Comparison tolerance used for relational functions, 
membership, index-of, integer tests, and domain tests. 

UIO+Q or 1 

Index origin. Determines base for counting. 

URL*-±nteger £1 to 281474976710655; 

Random link used by random number functions. 



Function Definition 



UENV«-0 or 1 

Environment control. Affects UCR , UFX , UEX , DNC , UNL, 
TWTOP, UTRACE, UL0CK, ULTIME, UNAMES , and UCOPI . If UENV 
is 0, the global environment is used, and if UENV is 1, 
the current environment is used. 

matrix+-UCR 'nane' 

Canonical representation of a function in the form of a 

matrix. 

Z+-UFX matrix 

Fixes the function represented by the character matrix 

argument. The result returned is a vector containing the 

name of the function, or, if the operation failed, a numeric 

scalar line number for the erroneous statement. 

vector+OEJ x names l 

Expunges (erases) objects named by the right argument. The 
result contains l*s for names that are now available, 0's 
for others . . 
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Table 8-1. Summary of Section 8, Continued. 



vector-^UNC t names l 

Returns the name class for each name — for available, 1 
for locked variable Clabel or group) , 2 for unlocked 
variable, 3 for function, or 4 for distinguished name. 

matrix*-UNL V 

matrix^ 1 letters* UNL V 

The namelist functions return matrices of names in use. 
Which names are returned depends on class numbers in 
V — locked variables Clabels or groups) if leV, unlocked 
variables if 2eV, functions if 3eV, and defined 
distinguished names if ^eV. The left argument of the dyadic 
form should contain letters to further restrict names to 
those beginning with those letters. 

vector+-ULOCK 'names * 

Locks functions and variables named by the right argument. 
The result is a vector containing 1 ' s for success, O's for 
failure. 



Stop, Trace, and Timing Control 



7 , US TOP L name l 
f UTRACE t name t 
V ULTIME ^arae 1 

Sets stop, trace, or timing controls for lines specified by 

V and clears controls for other lines . 

Z+USTOP 'nane' 

Z^UTRACE l name l 

Z+ULTIME ^name 1 

Returns line numbers for which stop, trace, or line timing 
controls are set. QSTOP and UTRACE return vector results, 
while ULTIME returns a matrix with line numbers in column 1 
and corresponding times in column 2. 



Program Library Functions 



UW&ID*-i~name l 

UWSID contains the workspace identification of the active 
workspace. This name is used when no name is given for 

Off AVE. 
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Table 8-1. Summary of Section 8, Continued. 



Z+USAVE T wsname L : passwdll I optional* 

Saves a copy of the acti3e workspace under the name 
specified. US AVE 11 (jio name given) uses the name in QWSID. 

A USAVE x wsname L '.passwdll/ optional l 

Same as above except that A controls the state indicator of 
the active and stored workspaces. If A is or 1 the state 
indicator is cleared or backed up to the last suspension, 
respectively. 

ULX-t- 1 expression l 

The ^Latent expression is executed immediately after the 
workspace containing it is loaded, 

DLOAD H* acoountl wsname L ipasswdl l 

Activates a copy of a stored workspace and then executes the 
latent expression if one is defined. 

matrix+V UNAMES t l*accountl wsname I ipasswdl* 

Lists names used in a stored workspace. The result is a 
matrix of names of objects in the name classes specified by 
elements of 7 — locked variables tiabels or groups) if ley, 
unlocked variables if 2eV, functions if 3&V, and 
distinguished names if 4e7. 

matrix+UNAMES l l*accountl wsname l:passwdl L 

Returns a matrix of all names of classes 1, 2, and 3 in the 
workspace. 

matrix+'-names*- UCOPT "L*account] wsname I ipasswdl 1 

Copies specified objects into the active workspace from a 
stored workspace. 

matr±x+UCOPY s t l*acoountl wsname Izpasswdl 1 - 

Copies all objects of classes 1, 2, and 3 from the 
workspace. 

UDROP v l*accountl wsname L :passwdl v 

Removes the stored workspace or file named by the right 
argument from the indicated library. 

Z+ULZB. % l*accountl lnamej v 

Returns a matrix containing names, types, and sizes of files 
in a library. If an account number is given, information is 
given only for the files that are public or semiprivate or 
for which the user has access permission. If a name is 
given, detailed information about that one file is returned. 



8-4 



60454000 C 



Table 8-1. Summary of Section 8, Continued. 



Error Processing 



UTRAP integer 

Specifies that errors are to be intercepted by a forced 
branch to the specified line of the currently executing 
function. 

Z+-UERR 

UERR is a 3- row matrix of the last error message, the line 
having the error, and a pointer to the position of the error 
in the line. 

matrxx^USZy vector 

The result is a character matrix containing the rows of the 
state indicator with variables display specified by the 
right argument. USZV~\oULC gives the entire display (in 
either origin) . 

y<-ulc 

ULC is a vector of all line numbers appearing on the state 
indicator. 



Miscellaneous System Communication 



V+UAZ 

UAI is a vector of accounting information. UAZH 2 3 4 5] 
gives: an encoding of the user's account number, accumulated 
central processor time, accumulated connect time, 
accumulated keying time, and SRU's used. 

V+-UAV 

Atomic vector of all 256 APL characters. 

y+UTs 

Time stamp: current year, month, day, hour, minute, second, 
and millisecond. 

Terminal type. 

QWA+V 

Working area: DK4L1] is the part of the maximum field length 
available for use, QWAliJ ± s the current field length, 
DK4L3J and Q&T.4L4J are the minimum and maximum field lengths 
the user wishes APL to use. 

Z+UTM ^command 1 

Terminal mode: commands are $Y$TEM, OFF and ARQRT , to return 
to operating system command processor, sign off, or abort 
batch job. 
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Table 8-1. Summary of Section 8, Continued. 



S+UDL seconds 

Causes execution 
seconds. 



to delay for the specified number of 



Format System Function 



Z+-' phrase, phrase, ... ' UFRMT B 

Z+^phrase, phrase, ... ' UFRMT (S1;S2; ... ) 

Formats right argument according to left argument. A 
Phrase is of the form 3g-I4, 2gP9.2, 4£15.7, yi, RtextB, or 
5Z. The qualifier q may be a combination of C, T, Z, or L 
Cfor commas, to change trailing zeros to blanks , use leading 
zeros, or to left justify); RUtextE (to pre-fill with text); 
MEtextE or ZI/HtextH (to place text to left or right if 
negative) ; PHtextE or QEtextE (to place text to left or 
right if positive), N_, B, or £ (to replace with blanks if 
negative, zero, or positive); or NBtextVH, BQtextE, or 
PIBtextE (to replace with text if negative, zero, or 
positive) . 



Number Conversion 



Z^-UEXTRACT l characters t 

Scans argument for numbers. Z[l] 

characters scanned, and 1 + Z gives 
numbers encountered. 



tells the number of 
a vector of any valid 



However, three system variables are so important that when they 
are undefined the system uses default values. Thus, when UPW is 

undefined the system uses 30 as the printing width. When DPP is 

undefined, normal output uses a value of 1. Wnen UCT is 

undefined, the system uses zero as the comparison tolerance for 

domain tests, although numerical comparisons still give implicit 
errors. For example, 

UEX^UCT* 
1 

3 = 3 
01: IMPLICIT ERROR (Because UCT is undefined for comparison.) 

3 = 3 
/ 

t;3 

12 3 

i3+l# 12 
03: DOMAIN ERROR (Because UCT is zero for domain tests.) 

13+15 12 

/ 
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Certain system variables are not stored in the workspace. 
These session variables remain in effect if another workspace is 
loaded and always have their normal values when an APL session 
begins. The session variables are QHT , QWA , UPL , UTT , UTS, and 
DAI. 

Note that many system variables are concerned with internal 
intricacies of the APL system or the host operating system. 
Consequently, they can be expected to differ from one system to 
another. For some programs it may be worthwhile to access them 
through user-defined functions to reduce the number of locations 
requiring changes if the program is later moved to another 
system. 

NAME LISTS 

Some system functions require arguments consisting of lists 
of names. In all cases such name lists can be either a vector of 
names separated by spaces, or a matrix of names with one name in 
each row. In either form extra spaces are allowed before or 
after names. When a system function returns a list of names as a 
result, the list is always in the form of a matrix because the 
matrix form is usually more convenient for manipulation by the 
program. 

WORKSPACES 

An APL workspace comprises variables, user-defined 
functions, the state indicator, and system variables that are 
currently defined. A clear workspace comprises the following: 

an empty state indicator 

DPP-*-10 (printing precision of 10 digits) 

UPW+120 (up to 120 characters are printed per line) 

UCT+-5E II (comparison tolerance is 5E~lij 

niO<-l (index origin is 1) 

Qi?L«-16807 (random link is 16807) 

QENV+1 (local environment) 

0EER<-3 0p f ' 
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As functions and variables are defined, they become part of 
the active workspace. A copy of an active workspace can be 
saved. To use it at a later time, a copy of the saved workspace 
can be activated (that is, made active). 

A stored workspace is a special kind of "file." Under an 
account number (or user number) can be stored as many files as 
are allowed by restrictions imposed on the account number. The 
collection of files is known as a library. 

APL workspaces and data files are ordinarily private files, 
which means that other users cannot use them. A user may 
optionally save a workspace as a semiprivate file or public file 
by use of commands of the form US AVE l name/S l or DSAVE^-name/PU 1 . 
This allows other users to access the workspace but does not 
allow them to alter it. Other users can be given permission to 
access a private file by use of the PERI-HT control card (see 
Section 13) . This gives selected user numbers permission to 
access the particular file. Further details about these file 
categories can be found in Section 10 and Section 13, 

Passwords can be given to workspaces for additional 
security. When a workspace is given a password, other users must 
provide the password in order to access the workspace. However, 
the owner of the workspace need not provide the password in order 
to use it. 

The first time a workspace is saved it can be given a 
password or a category (i.e., private, semiprivate, or public). 
Thereafter, the file password and category remain unchanged for 
subsequent save commands that replace the stored workspace. 
(Thus, the password and category options should not be provided 
for subsequent save commands.) To change the password or 
category you must load the workspace, drop the stored one, and 
then resave it with the new options. Alternatively, you can use 
the CHANGE control card (see Section 13). 

Workspaces can optionally be saved in direct access form 
(ordinarily they are saved in indirect access form).. This option 
is chosen by using a command of the form USAVE^n ante IDA*- the first 
time the stored file is established. Direct access workspaces 
are faster to load, save, or copy, but require more disk space. 
The direct access option is appropriate for unusually large 
workspaces that are loaded or saved very often. A workspace can 
be changed to direct access form by loading it, dropping it, 
then resaving it using the DA option. 

Workspace names and passwords must be composed of 1 to 7 
letters and digits. Embedded spaces are not allowed. 
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NOTATION 

Throughout this section, brackets are used to surround 
optional portions of expressions. The brackets theraselyes should 
not be used. For example, 

ULOAD t l*accountl wsname tipasswd] 1 - 

raeans that the account number and password are optional. Any of 
the following commands are of the correct form: 

DLOAD T ALGEBRA r 

ULOAD '-*4123456 ALGEBRA -.SESAME L 

ULOAD ^ALGEBRA: SESAME *- 

DLOAD L *4123456 ALGEBRA 1 



SYSTEM VARIABLES FOR OUTPUT CONTROL 

Printing precision . UPP+integer (2 to 15} 

The value of UPP determines the maximum number of significant 

digits to be used for numeric output. The result is rounded to 

UPP digits; hence if UPP is 3, 0.34567 would be printed as 

0.346. See Appendix B for further details of numeric output 

format. 

Printing width . DP^integrer (3Q to 1310 Jl l 

The value of UPtf determines the line width used for output. When 
a line _ of output requires more character positions than UPW , the 
remaining characters are indented and continued on successive 
lines. Output of numbers will not cause individual numbers to be 
split between two lines, but output of character data 
representing numbers may cause numbers to be split between lines. 

Print lines . UPL*-pages±ze., linecount CO to 131071> 
UPL is primarily intended to facilitate the use of CRT terminals 
having a screen smaller than the total amount of output 
generated. Appropriate setting of UPL causes output to pause 
when the screen has been filled to allow the screen to be 
examined or cleared (if required) before more output is sent. 
The first element of UPL should be set to the number of lines 
that will be used for actual output. The second element of UPL 
is a count of the number of lines actually used for input and 
output. When each output line or input line has been completed, 
UPLL21 is incremented by 1. If UPLlll =DPLl2] , the system prints 
? on the next line and suspends further output until RETURN is 
pressed. (Any other input is treated as if RETURN has been 
pressed.) The program requesting input can be halted by use of an 
interrupt (see Appendix C) . When RETURN is pressed, UPLL2J is 
reset to 0, and further output is sent. The value of DPLL2] can 
be reset to compensate for screen repositioning caused by graph 
mode output. The elements of UPL are restricted to nonnegative 
integer values. If an attempt is made to set UPLll'} to 1, it 
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actually is set to 0. If the last line on the screen is used for 
input, the ? is suppressed and normal input can be entered on 
that line. (The input request gives a pause to allow the screen 
to be read. ) Note that for some terminal types the ? prints as 

\. 

UPL has a different meaning when APL output is sent to a 
file rather than to a terminal. Specifically, if APL is not 
being used from a terminal or is being used from a terminal but 
the output file name is not OUTPUT, and if the B (for leading 
blanks) output option is in effect (see Appendix Dl, a page eject 
carriage control character is sent at the beginning of the next 
output line whenever the page size has been exhausted. 

Horizontal tabs . UHT+lntegers 

The variable UST can be set to indicate to the APL system that 
the terminal has tab stops set at the indicated locations. APL 
will subsequently send tab characters rather than spaces whenever 
the tab character will improve output speed. The first terminal 
column is numbered as column zero. Tab positions greater than 
255 are ignored and positions beyond UPW are inconsequential. If 
there is a discrepancy between the actual tab settings on the 
terminal and the values in DET , the output will be printed 
incorrectly. Also, some terminals cannot keep up with the output 
when the tabs are too far apart. To use tab stops set every N 
spaces, you can set DET using an expression like UET+-N* tlOO. To 
revert to normal output without use of tabs you can set UET using 
UHT+iO. 



VARIABLES AFFECTING PRIMITIVE FUNCTIONS 

Comparison tolerance . UCT+number CO to . OJJ 

The comparison tolerance is used when comparing numeric values 
and when testing whether values are sufficiently close to 
integers : 

1. Two numbers A and & are considered equal only if 

C)A-£)<;]QCTxB 

2. A number B is considered to be in the integer 
domain if 

OiNFNT %)-$.) ZUCT+IUCTXSINT B 

where NTNT B is the nearest integer to &, defined by: 

■VZ+NIWF B 
[i] Z«-(xBjxL.5+|BV 

The value actually used for the operation is NZNT B^. 
If UCT is undefined, zero is used as UCT . 
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Random link . URL+integer (1 to 28147497671 0655; 

URL determines the next random number to be produced by roll or 
deal. Each time a random number is requested, the value of URL 
changes. A series of random numbers can be recreated by setting 
URL to the same initial value and repeating the same requests. 
Because the value of URL is saved with the workspace, it may be 
desirable to reset it after the workspace is loaded to a value 
based on the current time of day so that the random numbers 
produced will not be the same as for the last session; for 
example, URL<-+/UTS. 

Index origin . QJO-<-0 or 1 

The index origin determines the origin for counting coordinates 
or elements along coordinates. In 0-origin the elements of a 
vector would be numbered 0, 1, 2, etc. All indexing should use 
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values that are 1 less in 0- origin than in 1-origin. In 
addition, the following functions produce results that are 1 
less in 0-origin than in 1-origin: AxB, i.B, &B , ^B, A?B, and ?B. 
In addition, the left argument for dyadic transpose should be 1 
less for 0-origin, and all axis operators require values that are 
1 less. That is, K should be 1 less in expressions like A/lKlB 
and <KZ]B. 



FUNCTION DEFINITION 

Environment . UENV+0 or 1 

UENV controls whether the functions UCR , UFX , UEX , UNC, UNL, 
ULTIME, UN AMES, UCOPT, QSTOP , BLOCK, and UTRACE refer to the 
global environment or to the current environment. When UENV is 
0, the global environment is used, and when UENV is 1, the 
current environment is used. The normal value of UENV is 1, so 
the system functions listed above may refer to local variables 
and functions. However, when function definition mode is 
entered or when a system command is performed, only the global 
functions and variables are used. When the state indicator is 
empty, the current environment and the global environment are the 
same and UENV has no effect. 

Canonical representation . matrlx+UCR ^NAME 1 - 

Canonical representation returns a character matrix 
representation of a function. The right argument contains a 
character vector or scalar containing the name of the function to 
be returned. The result will have one row for each line of the 
function, including the function header. Lines will be indented 
one space unless they have labels. If the argument does not name 
an object in the environment specified by UENy , a NAME NOT FOUND 
error is given. If the function named by the argument is a 
locked function or is a variable, the result will have as its 
shape. 

Fix . Z+-UFX matrix 

TWX establishes the function represented by the character matrix 
argument. If the attempt to establish the function is 
successful, Z will be a vector containing the name of the 
function. Replacement of previously existing functions is 
allowed and may result in SI DAMAGE if the function is halted. 
The SI DAMAGE error is processed as a normal error, except that 
if the state indicator entry for the currently executing function 
was damaged, error trapping is not allowed to take place. In 
this case the error is considered to be located at the last line 
entered in immediate execution mode. UFX cannot be used to 
replace objects other than functions. An attempt to establish a 
function may also fail as a result of an incorrectly formed 
function header or duplicate use of statement labels or local 
variables. If the attempt fails, Z will contain a scalar row 
index of the line that was improper. Functions created by UFX 
can be declared local to other functions. 
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Expunge . vector+UEX x names x 

QEX expunges (erases) functions and variables named by the 
argument. The result is a logic vector containing l's in 
positions corresponding to names in the argument that are now 
free, and 0*s in positions corresponding to names that remain 
unavailable for new uses. Erasure of a function that is on the 
state indicator does not take effect until the function is no 
longer on the state indicator. Thus a function can erase itself 
and not actually be erased until it exits. The unfinished 
execution can complete, but the name is immediately available for 
new uses. 

Name class . vectoT+UNC x names* 

UNC returns information about use of the names in the right 
argument. The result contains 0,1, 2, 3, or 4 according to 
whether the name is available (not in use) , a locked variable 
(label or group) , unlocked variable, a function, or a defined 
distinguished name (i.e., beginning with the symbol □) , 
respectively. Incorrectly formed names in the argument cause a 
DOMAIN ERROR. 

Name list. matrix-^-UNL V or matrix^* letters ' QNL V 
The name list functions return lists of names in use. The right 
argument is a numeric vector such that A/7el 2 3 4. V indicates 
the classes of names for which information is desired — 1 for 
locked variables (labels or groups), 2 for unlocked variables, 3 
for functions, and 4 for distinguished names (i.e., those 
beginning with the symbol D) . The result is a matrix of the 
names. The left argument of the dyadic form may contain any 
number of letters, and names appear in the result only if they 
begin with those letters. 

Lock . vector+ULOCK l names l - 

The variables and functions specified by the right argument are 
locked. A locked function cannot be displayed, and a locked 
variable cannot be reset using specification. (However, a locked 
variable can be reset by erasing it and then using 
specification. ) Locking a variable is a very useful way to find 
where the variable is reset. When the variable has been locked, 
the next assignment to it will cause an error halt. Label 
variables and groups are automatically locked to prevent them 
from having improper values. The result returned by QLOCK 
contains l's in positions corresponding to names that are now 
locked and contains ' s for other names . 



STOP, TRACE, AND TIMING CONTROL 

The functions USTOP , OTRACE, and ULTIME are closely related. 
In each case the right argument is a character vector or scalar 
that names a function, and the left argument for the dyadic form 
must contain nonnegative line numbers for which the control is to 
be set. Setting controls for any lines clears all controls of 
the same type for the other lines of the function. Elements of 
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the left argument not in the range of line numbers are ignored. 
In all cases, an empty vector of line numbers can be used to 
clear the controls. An empty character vector is allowed as a 
left argument for notational convenience (e.g., »' QSTOP 'PLOT'). 
The monadic forms of the functions return information about 
controls that are currently set. 

Stop control . V USTOP 'name' and vector^US TOP 'name' 
When the stop control is set for a particular line, execution of 
the function suspends before execution of the line begins, and 
the system prints STOP SET, the name of the function, and the 
line number. To continue execution where it stopped, issue a 
branch to the line number just printed. Stop control at line 
of a function causes suspension just prior to exit from the 
function. The monadic form returns a vector of line numbers for 
which stop controls are currently set. 

Trace control . V UTRACE 'name' and vectox+UTRACE 'name' 
Setting trace control for a line causes the function name and 
line number to be printed each time after the line has been 
executed, and if the result of the line was used for a branch or 
assignment, the result is printed even though it ordinarily would 
not be. Setting trace contol for line causes tracing of the 
exit from the function and causes printing of the explicit result 
of the function (if it has one). The monadic form returns a 
vector of line numbers for which trace controls are set. 

Line timing control . V ULTIME 'name* and matrix+ULTIME 'name 1 
Setting the line timing control for a line causes the central 
processor time for that line to be accumulated. The time for a 
line is accumulated until line timing controls for the function 
are reset, at which time all accumulated times are set to zero. 
An attempt to set the line timing control for line of a 
function causes a DOMAIN ERROR. The result returned by the 
monadic form is a 2-column matrix — the first column contains the 
line numbers for which the line timing control is set, and the 
second column contains the total times for the lines. Because 
the time clock has a resolution of one millisecond, each parcel 
of time used by the line is measured with limited accuracy, and 
lines consuming very little time or lines consuming time in small 
parcels can be expected to show relatively large inaccuracy in 
accumulated times. Note that the times accumulated for a 
recursive function can count the time more than once. 

PROGRAM LIBRARIES 

Workspace identification . UWSID+ 'name 1 

The variable UWSID contains the name of the active workspace. 
The name of the active workspace is used as the name for storing 
the workspace if no name is specified when US AVE or )SAVE is 
used. The name must begin with a letter, which may be followed 
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by additional letters or numbers. No spaces are allowed within 
the name, but spaces may precede or follow the name. The name 
must not exceed seven characters. 

Save . vector+USAVE ' wsname I ipasswdll /options] * 
USAVE saves a copy of the active workspace under the specified 
name and attaches to the saved workspace the password if one is 
used. If a password is used, it must be separated from the name 
by a colon. The name itself may be omitted, and in this case the 
value of UWSID is used as the name. When US AVE is executed from 
a function, the state indicator of the saved workspace will show 
suspension where USAVE was executed. The options may include S, 
P, or PU (for semiprivate, private, or public category) or may 
include DA or IA for direct access or indirect access. The list 
of options may include any desired number of options, separated 
by spaces, as long as the options do not include contradictory 
choices. The options and password may be specified only when the 
saved workspace is first established. If no options are 
specified, the workspace is saved as an indirect access private 
file if the saved workspace is being created; otherwise it is 
saved in the same form as before. 

The result returned is a vector of the workspace name and 
the current date and time. However, when USAVE is used in 
immediate execution mode, the name, date, and time are printed 
rather than being returned as a result. 

Dyadic save. A USAVE l wsname L :passwd]{. I options] 1 
The dyadic save function is like the monadic form except that it 
permits control over the state indicator in both the active and 
the saved workspace. The argument A may be a numeric scalar or 
vector. If A is 0, a clear state indicator results, and if A is 
1, the state indicator is backed up to the point of the most 
recent suspension (or cleared if there have been no previous 
suspensions). Note that a function calling the dyadic USAVE 
function always ceases to execute because of the change in the 
state indicator, unless an error prevented completion of the 
operation. Dyadic save prints the workspace name and the current 
date and time. 

Latent expression . ULJ<- Expression t 

The latent expression in a workspace is executed immediately when 
the workspace containing it is loaded. When a workspace has no 
latent expression, the keyboard unlocks for the user to specify 
the first operation to be performed. A successful load operation 
ordinarily causes the time and date when the workspace was saved 
to be printed, but when the workspace contains a latent 
expression this message is absent. 

Load. ULOAD x \_*account] wsname L:passwd] x 

The function ULOAD activates a copy of a stored workspace. The 

right argument must contain the name of the workspace to be 

loaded, the password for the workspace (if it requires one), and 

the account number under which the workspace is stored (if 
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different from the user's own!.... A successful load results in 
execution of the latent expression QULX] if the workspace being 
loaded has one. If the workspace has no latent expression, the 
time and date when the workspace was saved are printed. The 
special case ULOAD l *APL0 CLEARWS 1 is equivalent to the system 
command ) CLEAR, which erases all indirect access files and unties 
all direct access files that were tied during the APL session. 

Name list for stored Workspaces . matrix+V UNAMES l l*accountl 
wsname [ ipaaswdl ' 

The UNAMES function returns a matrix list of the names used in a 
stored workspace. The list returned is controlled by UENY in the 
active workspace. The right argument is the same as the right 
argument for ULOAD. The vector V may contain the integers 1, 2, 
3, or 4 to specify what classes of names should be 
returned — locked variables (labels or groups} if leV, unlocked 
variables if 2e7, functions if 3e7, and distinguished names if 
4e7. 

Monadic name list . mat rix+UN AMES ' L*accountl wsname tzpasswdl 1 
Returns a matrix of names of all objects in the workspace. Same 
as dyadic form with 1 2 3 as a left argument. 

Copy. matrix*-' names 1 UCOPY r L*accountl wsname C: passwd J l 
The function UCOPY copies functions and variables from a stored 
workspace to the active workspace. The account number, workspace 
name, and password are the same as described for ULOAD, The list 
of names in the left argument specifies objects to be copied. 
However, if copying the object would cause replacement of objects 
already in the active workspace, the copying process is 
inhibited. If UENV is zero, copying will be from the global 
environment of the stored workspace to the global environment of 
the active workspace, and if UENV is 1, the current environments 
will be used. The result from UCOPY is a matrix of names of 
objects not copied because they were not found, because WS FULL 
occurred, or because they already were in use in the active 
workspace. 

Monadic copy . matrix+UCOPY^ v L*accountl wsname lipasswdl 1 

Like dyadic copy except that all objects of classes 1, 2, and 3 

(see UNC) are copied. 

Drop . UDROP , l*accountl wsname t:passwdl T 

The function UDROP removes a stored workspace (or other file) 
from the user's library. A password must be specified if an 
account number is specified and differs from the one used to sign 
on to the system and if the file has a password. 

Library list . llst+ULIB x l*account~] Inamel v 

The function ULIB returns information about files stored under 
the specified account number (or the user's own account number if 
no account number is specified). When no file name is included, 
the list is a matrix such that each row has the following fields: 
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Pile name: 7 characters 
File type: 2 characters 
File size (in words): 7 characters 

One space separates the file name and type. 

When a file name is given, detailed information about that 
particular file is returned. The format when a name is provided 
is illustrated below: 

ULIB'*APL1 FILESYS* 
FILESIS WS 107 5 
IA S RD 11478 

7 5/05/12 11:46:58 (When created.) 
75/05/30 13:03:30 (Last change.) 
75/07/31 12:30:59 (Last access.) 

The first row gives the name, type of file {WS for workspace, F 
for APL file, blank for all others), and the size in words. The 
second row indicates the file is indirect access (the other 
possibility would be DA for direct access), the file category 
(5 for semiprivate, P for private, and PU for public), the mode 
of access permitted for other users {ED for read, WR for write, 
RM for read-modify, MD for modify, AP for append, RA for 
read-append) , and the number of accesses that have occurred. 

ERROR PROCESSING 

Some system functions respond to certain error conditions by 
returning a result to indicate the error. However, APL handles 
most errors by suspending execution at the point of the error, 
printing a message, and unlocking the keyboard for a new command 
to be entered. Note that a keyboard interrupt (see Appendix C) 
is treated as an error, as is typing V (0, BACKSPACE, U, 
BACKSPACE, T) . However, halts due to stop controls are not 
errors. Special exceptions arise when the error is in an 
argument to the execute function, in a quad input entry, in a 
locked function, or when UTRAP has been used to intercept errors. 

Errors in an argument to the execute function normally cause 
two error messages to be printed. The first shows the execute 
argument, and the second shows the error at the line where 
execute was called (more precisely, the most recent pendent line 
other than lines of locked functions or arguments to execute). 

Errors in lines entered for quad input cause the request for 
input to be repeated. If the error was encountered in a function 
called by the input line, the request for input is not repeated 
and normal error processing ensues. 

For security reasons, lines of a locked function are not 
shown in error messages. Any error in a line of a locked 
function is treated as if it were situated in the line where the 
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locked function was called (more precisely, the most recent 
pendent line other than lines of locked functions or arguments to 
execute) . 

The function OTRAP can be used to designate a line of the 
currently executing function to intercept errors. Once this has 
been done, error trapping is in effect and an error in any line 
of the function causes a forced branch to the trap line. The 
error trap is in effect for functions called by that function or 
for functions that are in turn called by those it calls, etc. 

The scope of error trapping is analogous to the scope of 
local variables. A function with a trap line remains in control 
of errors unless a function called by it sets its own trap line. 
The newer trap line takes precedence over the old one until the 
called function completes execution or clears its trap. The trap 

also takes precedence over the normal processing of errors in 
quad input lines. 

When a workspace is loaded, an interrupt may be acted upon 
as an error before the latent expression has been executed and 
the error trap has been enabled. To prevent this situation, a 
function with a trap can be halted using a stop control before 
the workspace is saved. The latent expression can then 
deliberately cause an error in order to invoke the trap line. 
(Warning: if a suspended function with a trap set is edited, any 
error that occurs may not trap to the expected line and the value 
of QERR may be erroneous.) 

For additional security of private software, a workspace can 
be sealed. See the discussion of AWSFIX in section 13 for 
details. 

Error matrix . Qerr 

The character matrix qerr contains the last error message. Row 1 
has the type of error. Row 2 has the name of the function, the 
line number (surrounded by brackets) , and the line itself. Row 3 
of UERR has a slash to indicate where the error was found in row 
2. The number of columns in QERR varies according to the longest 
of the three rows. 

The first row always shows the type of error actually 
encountered, but the location of the error as shown in rows 2 and 
3 can be different from the actual location of the error under 
the following conditions: 

1. If error trapping is in effect, the error is treated 
as an error in the pendent line of the trapping 
function. 

2. If error trapping is not in effect and the error 
occurred in a line of a locked function or in an 
argument to execute, the location of the error is 
considered to be the most recent pendent line that is 
not an argument to execute or a line of a locked 
function. However, an error in a locked function that 
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uses trapping causes UERR to contain a line of the 

locked function. It is advisable for the locked 

function to localize UERR in order to protect its 
security. 

Trap set . UTRAP integer 

The UTRAP function sets, resets, or clears the trap line for the 
currently executing function. Use of UTRAP from immediate 
execution mode has no effect. The argument must be an integer. 
If the integer is within the range of line numbers, that line 
becomes the trap line. If the number is or exceeds the number 
of lines, trapping causes exit from the function. The trap can 
be cleared by UTRAP i0. Once trapping is in effect, an error in 
that function, in D input, or any function invoked by it causes a 
forced branch to be taken to the trap line, and the trap state is 
cleared. Note that UTRAP must be used to set the trap again 
before additional errors can be intercepted bf that function. 
Hence a second error during processing of the trap routine 
results in either normal error processing or error processing by 
a function that invoked this one. If trapping is in effect, 
execution of functions can still halt as a result of a stop 
control. However, the trap then remains in effect for errors in 
immediate execution mode. 

When a forced branch to the trap line occurs, at least one 
function will execute before an interrupt is detected. For 
complete security, the trap line can immediately reset the trap. 
In addition, at least one function is executed on the first line 
of a user-defined function before an interrupt is detected, thus 
allowing the function to set a trap without an interval of 
vulnerability to interrupts. 

Loca tion counter t ULC 

The variable ULC contains a vector of all line numbers appearing 
on the state indicator. The numbers appear in the same order as 
in the )STV display — that is, the numbers of the most recently 
invoked lines appear first. The first element is the number of 
the function line currently executing. 

State indicator and variables . matrix-*-USiy vector 

The function U&TV returns rows of the state indicator, including 
local variables. The argument must be a vector or scalar 
containing integers. The value returned is a character matrix 
containing a portion of the )SIV display selected by the right 
argument. USTV vpULC prints the entire SI7 display (in either 
origin). If a value in the argument exceeds the range of 
appropriate row indexes for the SIV display, a blank line 
appears in the corresponding row of the result. Hote that only 
entries for function lines appear on the state indicator— not 
execute arguments, quad input lines, or immediate execution 
lines . 
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MISCELLANEOUS SYSTEM COMMUHI CATION 

Accounting information . CUT 

The variable DAI is a numeric vector of the following accounting 

information: 

LUJCi] - A numeric encoding of the user's account number. For 
a character vector V containing the 7-character 
account number, the value of Q4I[1] is generated in 
zero origin by 
1 X ' AB CDEFGHIJKLMNOPQRSTUVWXY Z0123456789't7 

UAIL21 - Central processor time used. 

QAIt3l - Total connect time. 

UAIim - Total time the keyboard has been unlocked. Includes 
part of the time required for the system's response. 

Di4J[5] - The number of milli (thousandths of) System Resource 
Units (SRU's) used since entering APL. 

Times are in milliseconds and are cumulative since signing on to 
APL. 

Atomic vector . UAV 

The vector UAV contains all 256 characters manipulable by APL. 
Note that the ordering of characters in UAV is system dependent, 
and programs that depend on the ordering of characters in UA V 
cannot be easily transferred to other APL systems. See the table 
in Appendix C to find positions of particular characters. 

Time stamp . UTS 

The value of UTS is a 7-element numeric vector expressing the 
current point in time. The elements are in the following order: 
the year (e.g., 1975), month (1 for January), day of the month, 
hour (0 to 23), minute, second, and millisecond. The last 
element is always because the operating system does not report 
the time of day to millisecond precision. 

Terminal Type . UTT 

The value of UTT identifies the type of terminal in use. The 

value is a numeric scalar as follows: 

1 - Correspondence 

2 - Typewriter-pairing 

3 - Bit-pairing 

4 - ASCII-APL 

5 - Teletype Model 33 

6 - Pull ASCII 

7 - Batch. ASCII 

8 - Batch. 501 Printer 

9 - Teletype 38, arrangement 3 
10 - CDC 713 

Working area . UWA 

The value of UWA is a 4-element vector of: the part of the 

maximum field length available, the current field length., the 

minimum field length the user wishes used, and the maximum field 
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length the user wishes used. The field length is the actual 
memory space occupied by the APL system and the workspace. The 
user can set constraints on the field length to be used in order 
to optimize performance (see Section 12) . Attempts to reset the 
first- two elements of UWA have no effect. The maximum field 
length cannot be set to less than that which is currently 
required. Setting nffAlM to more than the user's validation 
limit or more than the field length limit imposed by the operator 
results in a DOMAIN ERROR. 

Terminal mode . vector+DTAf 'command ' 

vector-*-' dayfile message' QTAf 'command' 
The terminal mode function allows the following operations: 

QTM'SYSTEM 1 Returns control to the operating system command 
processor. 

QTM'OFF 1 Logs the user off. 

UTM' ABORT* Terminates job with operating system abort error 
flag set. 

Note that these commands do not cause the active workspace to be 
saved. The result returned is a vector containing a zero 
indicating that the operation was not recognized. If the ri*ght 
argument is an empty vector, nothing is performed, and the result 
is an empty vector. If a left argument is supplied, it is sent 
to the user's dayfile before the commands are executed. The 
user's dayfile is a log of the NOS control cards executed by the 
user and is available outside of APL. 

Delay . scalar-HDPI seconds 

Causes execution to delay for the number of seconds requested. 
The delay does not involve consumption of central processor time. 
The result returned is the actual delay that occurred (usually 
slightly more than requested) . The delay cannot be interrupted. 



FORMAT SYSTEM FUNCTION 

The function UFRMT allows detailed control over column 
formatting. The function can be used in two forms: 

matrix«-i4 UFRMT B 

matrix-M UFRMT (B1;B2; ... ) 

The second form uses a list structure generated by separating 
expressions by semicolons and surrounding the entire group of 
expressions with parentheses. The left argument is a character 
vector (or scalar) describing how successive columns of the right 
argument should be formatted. A scalar right argument or a 
scalar list element in the right argument is treated as a 
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one-element matrix, and a vector is treated as a one-column 
matrix. (To display a vector horizontally, reshape it to become 
a one-row matrix, or apply the ravel function to the result.) 
Arrays of rank greater than 2 are not allowed. The arrays in a 
list argument may have differing numbers of rows, which causes 
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blanks to be used in the lower portion of the result 
corresponding to the missing rows. If QFRMT is the last 
operation on the line, the result is printed directly rather than 
actually forming a result, thus reducing the chance of a WS FULL 
error . 

Format phrases . The left argument to UFRMT is comprised of 
format phrases separated by commas. The following are the 
allowed forms for phrases : 

[n] Cg] Iw Integer format. Same format as (w,0)v5» 

[n] [g] Fw.d Decimal format. Same format as (&r,d)<rB. 

Cn] Ew.d Exponential format. Same format as ( w ,-d)TB. 

If w>d+Q , field overflow will not occur and 
there will be at least one space separating 
the previous column. 

[n] X Spaces. 

C«] Aw Character format. Aw right justifies one 

character in a field of width w. 

["] HtextH Literal format. Forms a field containing 

text . 

Here n represents a number to be used as a repetition count, q 
represents a "qualifier" (described below), w represents a number 
to specify the width of the format field, and d represents a 
number to determine how many digits should be shown. Brackets 
are used to indicate parts that are optional. If no digits will 
appear after the decimal point in the result, the decimal point 
is omitted. If the repetition count is zero, the entire format 
phrase is ignored. If no repetition count is provided, 1 is used 
as the number of repetitions. Spaces may be used as desired in 
the left argument and have no effect unless they occur within 
pairs of H symbols or within a number Can error condition) . 
numbers are rounded to the precision required, and the number of 
digits shown is allowed to exceed the computer's precision Czeros 
are used to fill digits beyond the fifteenth) . The following 
examples illustrate the use of simple format phrases: 

0+M<-§3 3pl3 282 3.8 13.046 ~22.52 0,O~l£'~263 ~2 1E30 
13 _13.046 3.141592654£'"~263 
282 22.52 ~6 . 28318 53 07E0 
3.8 3. 141592654030 

'J4,i?7.2,#13.5* UFRMT M 
13 _13.0 5 ~3.1hl&E 263 
282 22.52 ~6.2832#0 
4 0.00 3.1416£30 

t Al,A2,A3,AH,A5 t - QFRMT 1 Sp^SPACE 1 
SPA C E 
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ITEMS+* 7p 'LATCHESHINGES BOLTS TOTAL ' 

CODE+'FTX' 

QTY+18 34 102 

PRICE+-2.H5 1.20 .28 

TOT+P, +/P+QTY*PRICE 

• 741,43, Q }tt,I5,F6.2,F8 .2'UFRMT(ITEMS;CODE;QTY',PRICE',TOT) 
LATCHES F ] 18 2.45 44.10 

HINGES T \ 34 1.20 40.80 

BOLTS X 1 102 0.28 28.56 

TOTAL j 113.46 

The j, f, Er and a format primitives are value-using in the 
sense that each time one of these is performed it operates on a 
value from the right argument. There must be at least one 
value-using phrase if the right argument is not empty. As 
processing of a row of the right argument begins, the scan of the 
left argument begins at its first element. If the left argument 
is used up before the row of the right argument is completed, the 
scan of the left argument begins again at the left. When the row 
of the right argument is exhausted, the left argument is 
processed until a value-using phrase is encountered or until the 
scan encounters the end of the left argument. 

If the information (including that required by qualifiers) 
to be placed in a field exceeds the width of the field, the field 
is filled with asterisks. Also, if a value in the right argument 
is of the wrong type for the format primitive (i.e., if numeric 
for A or if character for I, F, or e) the field is filled with 
asterisks and that value is bypassed. 

Format qualifiers . Format qualifiers can be used with the j or 
F format primitives to further control the format. In cases 
where the qualifier depends on whether the number is positive, 
negative, or zero, the test considers only the part of the number 
that will be shown after rounding. For example, if j format were 
used with the numbers .01 and ~.oi both would be considered to be 
zero. The following qualifiers are defined 

RfttextB Background with which to pre-fill the field. The 

background is repeated from left to right as needed 
to fill the field. 

C Insert commas to group triples of digits to the left 

of the decimal point. 
T Change trailing zeros after the decimal point to 

blanks. 
Z Fill field by using leading zeros. 

L Left justify number in field. 

MUtextH Place text to left of negative numbers. (Default is 

PfQ.1 

NEtextE Place text to right of negative numbers. 

PEtextB Place text to left of nonnegative numbers. 

QfltextB Place text to right of nonnegative numbers. 
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JN NEtextB Fill entire field with blanks or with text (right 

justified) if negative. 
B BRtextB Fill entire field with blanks or with text (right 

justified) if zero. 
P PEtextE Fill entire field with blanks or wi ih text (right 

justified) if positive. 

If more than one qualifier of the same type is encountered 
in a format phrase, the rightmost one is used. (This allows the 
user to build variables containing prototype strings of 
qualifiers and then catenate on further qualifiers to deal with 
special cases.) 

The formatting of a field can be considered to follow this 
procedure ; 

1. The field is pre-filled with blanks or the text 
specified by iJHtextD. 

2. The number is rounded and formatted according to the 
format primitive and the C, MBtextB, NBtextB, PEtextB, and 
QBtextE qualifiers. Trailing zeros are replaced by blanks 
if T was specified, and leading zeros are added to the left 
(but to the right of the sign or text required by MEtextE or 
PEtextE) if Z was specified. This augmented number is then 
moved into the right (or left if L was specified) of the 
pre-filled field. 

3. Replacement text required by an applicable N_, B , P, 
NBtextB, BEtextB, or PEtextB qualifier replaces the entire 
rield. 

The use of qualifiers is illustrated below: 

NEGATIVE NUMBERS IN PARENTHESES 
ROWS+2 15 p» PROFIT (LOSS) PER SHARE » 

M+2 3p42E'6 ~4£'6 18E6 3.14 ".32 1.26 
•i541,3M[3([I]2!/II])II]eQ I3C.F15.2' UFRMT (ROWS ;M) 
PROFIT (LOSS) 42,000,000.00 (4,000,000.00) 18,000,000.00 
PER SHARE 3.14 (0.32) 1.26 

PtDOUBLE ENTRY STYLE WITH TW0_C0LVMNS, N. C. FOR ZEROS 
7«-24.61 "30.24 387.60 29.80 52.48 
'BEN. C.EM&SNE EFm^'DFRMT V 

24 . 61 



30.24 



52.48 



387.60 
29.80 

N. C. 
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^BACKGROUND FOR CHECK PROTECT 
'\!1$\!1,RB*V1CF10. 2' UFRMT 3.14 3 2 8.54 50 41 2. 8 7 

#****** 3 . 14 

,1****328. 54 

,1*50,412.87 

^BACKGROUND FOR TABLE OF CONTENTS, 

^CHAPTER NUMBERS LEFT JUSTIFIED 

'BCHAPTER B,LI2,RH. EJ40 • UFRMT (7 8 9 10;9 92 328 552) 

CHAPTER 7 .9 

CHAPTER 8 92 

CHAPTER 9 3 28 

CHAPTER 10 552 

A LEA DING ZEROS FOR DATES 

DATES+i* 3o3 7 72 4 4 73 1 16 7612 1 75 

, I2 t ]S/E,ZI2,E/E i ZI2 , 0FRMT DATES 

3/07/72 

4/04/73 

1/16/76 

12/01/75 

PiLEADING ZEROS FOR MULTIPLE PRECISION REPRESENTATION 
'CI7 ,1QCZI8 » UFRMT 1 4ol234 567890 003456 789012 
1,234,567,890,003,456,789,012 

^CURRENCY SYMBOL AT LEFT, CR TO RIGHT IF NEGATIVE 
'CWEtfMl CRflPB$HQ\H HF15.2' UFRMT 32768 "911 1427.21 
#32, 768. 00 

#911.00 CR 
#1,427.21 

Repetition . Groups of format phrases can be repeated by 
surrounding them with parentheses and prefixing with a repetition 
count. These repetition groups can in turn be nested within 
repetition groups. For example, * 2(F2. 0,F3. 1 ) * means the same as 
'F2.0,F3.1,F2.0,F3.1' and * 2( 2(F2 . ,F3 .1 ), 2(F4. 1 ,F5. )) «■ is 
equivalent to: 

1 2 (F2. t F3.1,F2.0,F3.1,F^.l,F5.0,F^.l,F5.0) t 

NUMBER CONVERSION 

Z+-UEI TRACT ' characters l 

The UEXTRACT function can be used to extract legal APL numbers 
from a character vector or scalar. The first element of the 
vector result tells the number of columns processed, and any 
remaining elements are any numbers encountered. The scan of the 
argument begins at its first element and proceeds to the right 
until a character is encountered that is not a blank or part of a 
number. If any illegal numbers (such as numbers with two decimal 
points) are encountered, a SYNTAX ERROR results. 
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Section 9. System Commands 

System commands provide the same capabilities as some of the 
system functions and variables. The system commands are provided 
for compatibility with other APL systems. The main advantages to 
using system functions and variables instead of system commands 
is that the system functions and variables can be used in 
programs (system commands cannot) . For more complete discussions 
of the operations performed by system commands, see the related 
system functions in Section 8. 



GROUPS 

The APL 2 system, unlike some other APL systems, does not 
have a distinct data type for "groups." However, the system 
commands allow a character matrix or a vector of names to be used 
for the same purposes as groups in the other systems. For 
example, if GRPX is a matrix of names, the command ) ERASE .GRPX 
would erase GRPX and any objects referenced by the names in 
GRPX. The period in the command is required to indicate that 
objects referenced by GRPX are to be erased, not just GRPX 
itself. The general system convention for distinguishing groups 
is that all group names should begin with GRP . Matrices or 
vectors of names that do not begin with GRP can be used as 
groups, but they will not be listed by the command )GRPS* The 
names in the group definition can be preceded by a period, which 
causes them to be interpreted as a reference to another group. 
Any groups formed by the ) GROUP command will be locked to prevent 
accidental use of the same variable for a different purpose. 

)CLEAR CEquivalent to \JLOAD l *APL0 CLEARffS 1 -} 

The command ) CLEAR activates a clear workspace Cdescribed in 
Section 8) and erases all indirect access files and unties all 
direct access files that were tied during the APL session. 
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Table 9-1. Summary of Section 9. 



) CLEAR 

Activates a clear workspace. 
) ERASE names 

Erases specified functions and variables. 
)SAVE [wsname! [ ipasswd! [/options.! 

Saves a permanent copy of the active workspace. Options may 

include S, P, PU , IA , or DA. 
)LOAD [*account! wsname C ipasswd! 

Activates a copy of the specified workspace. 
)DROP [*account! wsname C ipasswd! 

Removes a permanent workspace from the library. 
)COPY [^account! wsname ['.passwd! [names! 

Protected copy of all global objects of classes 1, 2, and 3 

or selected global objects from a stored workspace to the 

active workspace. 
}UCOPY [*account! wsname [ipasswd! [names! 

Unprotected copy of all global objects of classes 1, 2, and 

3 or selected global objects from a stored workspace to the 

active workspace. 
)LIB [*account] [namel 

Displays names, types, and sizes of all files, or displays 

detailed information about a single file. 
) SYSTEM 

Returns control to operating system command processor. 
)OFF 

)SI 

)SIV 



Signs a user off. 

Displays the state indicator. 



Displays the state indicator along with names of variables. 
)FNS [letter! 

Displays names of functions. 
)y$MS [letter! 

Displays names of variables. 
)GRPS [letter! 

Displays names of groups. 
)GRP group-name 

Displays names in a specified group. 
)GROUP group-name names 

Forms a group having specified names. 
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)ERASE names (Equivalent to UEX 'names 1 ) 

Erases all global objects specified by the list of names. 
If a name is preceded by a period, the name is treated as the 
name of a group. The erasure erases the group itself (actually a 
matrix or vector of characters) and the objects referenced by the 
group . 

}SAVE [wsname] C \passwdl {./options'} 

(Equivalent to USAVE T lwsnamel lipasswd] L/optlonsl l ) 

The )SAVE command saves a copy of the active workspace under 
the name specified or under the name in UWSID if no name is 
given. The options are S (semiprivate) , P (private, the 
default), PU (public), DA (direct access) or IA (indirect access, 
the default) . 

}LOAD C*account] wsname [ :passwd} 

(Equivalent to DLOAD 't*account] wsname L-.passwdl 1 ) 

The )LOAD command activates a copy of a stored workspace. A 
password is required if the workspace has a password and is 
stored under another user number. After the workspace has been 
loaded, the system executes DLI if ULX is defined. 

}DROP [*account] wsname l ipasswd] 

CEquivalent to UDROP 'l*accountl wsname C -.passwdl 1 -} 

The )BROP command removes a stored workspace or other file 
from a library. If the workspace is in another user's library, a 
matching password must be given if the stored workspace has a 
password. The user must also be authorized to alter the existing 
file. 



\COPY L*accountl wsname Zipasswd] Lnamesl 
)UCOPY Z*accountl wsname L:passwdl [namesl 

The )COPY command performs a protected copy of global 
functions and variables from a stored workspace to the active 
workspace. The )COPY command will not replace objects in the 
active workspace with objects from the stored workspace having 
the same names. The ) UCOPY command performs an unprotected copy 
and will replace objects having the same names. If no list of 
names is given, all objects of classes 1, 2, and 3 are copied. 
If a name in the list is preceded by a period, the name is 
assumed to refer to a group and objects named in the group are 
also copied. The UCOPY function can be used instead of )COPY if 
groups are not to be copied. The form is L l names^ UCOPY 
~L*accountl wsname [ ipasswdl 1 . 
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)LIB L*accountl tnamel (Equivalent to ULIB t t*accountllname] t ) 

The )LIB command displays names, types, and sizes of all 
files the user is authorized to access, or, if a file name is 
specified, )LIB displays detailed information about that 
particular file. The format is the same as for DLIB (see Section 
8). 

) SYSTEM (Equivalent to UTM • S YSTEM » ) 

The command ) SYSTEM causes the user to leave APL control and 
allows the operating system command processor to execute 
subsequent commands. The active workspace is not saved. 

)OFF (Equivalent to UTM 1 OFF t ) 

The )OFF command signs a user off the system. 

)SI 

)SIV (Equivalent to US IV voDLC) 

The command )SI lists the state indicator, and the command 
)SIV lists the state indicator and all local variables. See 
Section 2 for the format of the display. 

)FNS Lletterl (Roughly equivalent to UNL 3). 
)VARS [letter] (Roughly equivalent to UNL 2) 
)-GRPS [letter] (Roughly equivalant to Hr* UNL 1) 

These commands list the names of defined global functions, 
variables, and groups, respectively. If a letter is included, 
only names beginning with that letter or letters that follow that 
letter in the alphabet are shown. The command )GRPS lists 
variable names that begin with GRP . 

)GROUP group-name names 

The command ) GROUP defines a group, extends a group, or 
erases a group definition. Groups are actually represented as 
character matrices. If the group-name itself is the first name 
in the list of names, any previously defined group is extended by 
the addition of the remaining names. If no names are given, the 
group definition is erased but objects named by the group are not 
erased. Names listed in the command can be preceded by a period 
in order to include a period in the group definition (to indicate 
the name refers to another group) . 
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)GRP grpname (Equivalent to grpname) 

The command )GRP displays the definition of the indicated 
group. If the group is not defined or is not a character matrix 
or vector, an error message is given. 
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Section 10, File System 



This section discusses files from the APL user's point of 
view. The APL system supports two distinct types of files: 
API.-structured files, and coded files. The use of files enables 
programs to deal with large quantities of data that would not fit 
into a workspace, and files also provide a convenient way for 
programs to communicate with one another. 

APL-STRUCTURED FILE CONCEPTS 

An APL-structured file is a collection of APL arrays with 
each array identified by a nonnegative integer. The following 
example shows creation of a file and writing and reading a few 
records (arrays) of the file. 

)L0AD *APL1 FILES YS (File system functions are 

loaded from APLl.) 

'SAMPLE' FCREATE 9 (The FCREATE function is used 

to create a file with the name SAMPLE 
and with 9 as its number.) 

'RECORD 3 » FWRITE 9 3 (The left argument is written 

to file 9 as record 3 . ) 

(3 3p\9)FWRITE 9 1 

(2 3p'D' ) FWRITE 9 28 



FREAD 9 1 
12 3 
4 5 6 
7 8 9 



(The records can be read in 
any order . ) 
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Table 10-1. Summary of File Functions. 



1 filename L:passwdl L/optionsl^ FCREATE fnum 

Creates a file. Options are DA, C, WR , S, or PU . 

array FWRITE fnuml ,rnuml 

Writes array on file number fnum as record mum. 

result-*-FREAD fnuml f rnuml 

Reads the record numbered mum from the file numbered fnum. 

FRDEL fnumi ,rnum1 

Deletes record mum from file fnum. 

rnum+FFREE fnum , 

Returns the least record number not presently xn use in file 

fnum. 

x [*account~S filename Izpassvrdl v FPACK fnum 

Condenses file by eliminating lost and unused space. 

FPOS fnum, mum 

Sets position of file fnum to rnum. 

result+FSTATUS fnums .,...,, ,_. . .. 

Returns the status of all files specified by the right 
argument. The result is a vector or matrix according to whether 
the argument is a scalar or vector. Columns are: (1) largest 
record number, (2J current position, (31 file size, (41 unused 
space, (5) lost space, C6J space not used because record sizes 
not divisible by 64, C7J 1 if coded file, (8} I if DA type, C91 
i if absent record encountered by last read attempt. 

PSTATUS . ,_ _ . . _ 

Prints status information (with descriptive headings! for 

all active files. 

result+FNAMES~ 

Returns a matrix of user numbers and names for all tied 

files. 

resvlt+FNUMS 

File numbers in use for tied files. 

FRET URN fnums . . 

Unties specified direct access files and erases specified 

indirect access files. 

FUNTTE fnums 

Unties files in right argument. This leaves a permanent 

copy. 
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F ERASE fnums 

Erases all files specified by right argument. Erasure 
affects active file and for DA type also affects permanent file. 

l l*account~y file-name lipasswd] l/options]* FTIE fnum 

Ties a file with specified options — RD for read only (other 
users can read at the same time ) , and RM for read-modify (another 
user can modify at the same time) . 

result+CFREAD fnumi , rows , columns] 

Coded read. Result is a vector or matrix of characters or a 
numeric scalar — 1 for end of record, 2 for end of file, 3 for end 
of information. 

array CFWRITE fnum 

The left argument is written to the coded file fnum. The 
argument should be a character scalar, vector, or matrix, or 
integers — 1 to write end of record or 2 for end of file. 

integers CFPOS' fnum 

Positions file. Operations indicated by first integer are: 
for rewind, 1 for skip record, 2 for skip file, 3 for skip to 
end. Second integer for skip record or skip file may be included 
as repetition count. 

jobname+C SUBMIT fnuml ,type] 

Submits the coded, indirect access file fnum as a batch job 
and erases the active copy. 



FREAD 9 28 
DDD 
DDD 

FREAD 9 3 
RECORD 3 

After the above steps, the user can store the file (using 
FUNTIE 9), an operation analogous to saving a workspace. The 
user could then sign off the system. The information in the file 
would remain intact and could be accessed or modified at a later 
time. 

File limits . Individual file records are allowed to be as large 
as desired. However, user numbers have associated restrictions 
that may limit the total number of files, the total size of all 
files, the size of individual files, and whether the user can 
create direct access files . 

Tied files . It is usually more convenient to use numbers within 
a program to identify a file rather than using the file name. 
All file operations require this file number. The number is tied 
to the file when the file is created using FCREATE or when a 
previously stored file is accessed using the FTTE function. Once 
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a file has been assigned a number, the file is said to be tied. 
The file can be released by using the FUN TIE operation, the 
FEETUEN operation, by erasing the file using FEEASE , by signing 
off from APL, or by typing )CLEAE. However, files remain tied 
when another workspace is loaded. 

Accessing file functions . The functions described in this section 
are ordinarily stored under the user number APL1 in the workspace 
FILES! S. Before file operations can be performed, the functions 
must be obtained from APLl by loading the entire FILES IS 
workspace or by copying selected functions from FILES! S> All 
functions in FILES! S are independent, and you need copy only 
those functions you intend to use. The following examples show 
various ways that copies of the file functions can be obtained. 

)LOAD *APL1 FILES !S 

QLOAD l *APLl FILES! S 1 

)COP! *APL1 FILES! S .GEPPEIM (A group that excludes 

documentation ) 
)COP! *APL1 FILES! S FT IE FEE AD 

The file functions use the system function UFI to perform 
all file operations. The function UFT could actually be used 
directly, but it is usually more convenient to use the functions 
in the FILES! S workspace. Most of the functions in the FILES! S 
workspace are locked so that error processing will be more 
convenient. Users who wish to learn how to use UFI directly can 
discover all details about UFI by studying the definitions of the 
locked FILES!S functions below: 

7i4 FPACK B ill A UFT 0,B7 

74 FCEEATE B tl] A UFI 1,B7 

74 FWEITE B ill A UFI 2,B7 

VZ+FEEAD B [1] Z+UFI 3,B7 

V FEEASE B 111 B UFI 47 

VFEDEL B 111 UFI 5,B7 

VZ+FSTATUS B 111 Z+B UFI 67 

VZ+FNAMES [13 Z+UFI -7 7 

VZ+FNUMS' LI] Z+UFI 87 

VFUHTIE B 111 B UFI 97 

74 FTIE & [1] A UFI 10,57 

VFPOS' B [11 UFT 11, BM 
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VA CFWRITE B 111 A UFI 12,57 

VZ+CFREAD B HI Z+UFI 13,5V 

Vi4 CFP05 5 [1] DFJ 1H,B,AV 

VZ+C SUBMIT B 111 Z+DFI 15,57 

VZ+-FFREE B [ll Z«-QFT 16,5V 

In addition to the basic functions in the FILESYS workspace, 
the workspace FILES! contains additional file functions that are 
based on the functions in FILESYS' and perform more complicated 
operations . 

Active and stored files . APL-structured files are ordinarily 
indirect access files unless the user specifies otherwise at the 
time of creation. This means that when the file is tied, the 
system makes a copy of the stored file. All reads and writes 
actually interact with this active copy. To save the file as a 
permanent stored file, an FUN TIE is required. Signing off from 
APL, typing ) CLEAR, or a telephone disconnect (assuming the 
RECOVER command is not used) causes the active file to be erased. 
One advantage of having a separate active copy is that no damage 
can be done to a stored file if a series of file updates is not 
completed. For example, suppose that a program writes a record 
to indicate that a transfer of funds was made from one account to 
another on a certain date, then the program revises two records 
containing the balances of those accounts. If the program were 
to halt in the middle of the sequence of operations Cdue to a 
system problem or telephone disconnect), the transactions 
recorded in the file would be inconsistent with the balances in 
the file. This causes no problem when indirect access files are 
used because the inconsistent information is in a temporary file 
and the stored file is in the same state it was when it was tied. 

For some applications that use indirect access files, it may 
be desirable to perform an FUNTIE and an FTIE at intervals of 
about every ten minutes in order to minimize the amount of new 
information that would be lost in the event of a system problem. 

Forms for file names and passwords . File passwords and file 
names must be composed of 1 to 7 of the letters A to Z and digits 
to 9 and must not contain any embedded blanks. File names 
should be distinct from names used for other files or workspaces. 
Use of the same name will result in an error message when an 
attempt is made to untie the newly created file. (For a direct 
access file, the error occurs when FCREATE attempts to create the 
new file.) 

Range for file numbers . File numbers can be any nonnegative 
integers not greater than 131071. 
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FILE SECURITY 

A file is owned by the user who created it. The owner is 
allowed to alter the file in any desired manner, but the owner 
can control access by other users through the following controls: 

1. The file category is ordinarily private. Private 
files cannot be accessed by other users unless their 
user names have been given explicit access permission 
by use of the PERMIT command (see Section 13) . 
Alternatively, the file can be assigned a category of 
semiprivate or public. Either of these categories 
allows other users to access the file if they know the 
password, the name of the file, and the user name under 
which it was stored. The QLIB command will reveal to 
another user the names of files that are semiprivate, 
public, or that are private and have been explicitly 
made accessible to the other user. To make a file 
public or semiprivate, use the options pu or s when the 
file is created, or use the CHANGE command to change 
the category. When the DLIB function is used with a 
file name, the result shows when the file was created, 
when it was last changed, and when it was last 
accessed. In addition, for semiprivate and private 
files the system retains the number of accesses and the 
time of the last access for each user of the file. 
This information can be displayed by use of the CATLIST 
command (see Section 13) . 

2. The file can be given a password. Only users who 
know the password can use the file; however, the owner 
of the file is never required to provide the password. 
The password can be assigned when the file is created, 
or the password can be assigned or changed by use of 
the CHANGE command (see Section 13). 

3. The file mode can be used to control the type of 
operation another user can perform. For files created 
by APL (including workspaces) other users are 
ordinarily allowed to read the file (assuming the 
password and category do not exclude them) but are not 
allowed to alter or destroy the file. Other users can 
be given permission to alter the file by specifying the 
WE option (for write) when the file is created. For 
private files, this mode has no significance because 
when other users are given explicit access permission 
via the PERMIT command, the permitted access mode for 
each user becomes that expressed in the PEEMIT command. 
For semi-private files, the general access mode is 
applicable to most users of the file, but an 
overriding access mode can be specified for individual 
users by use of the PERMIT command. For example, most 
users might be allowed to read the file, while a few 
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selected users might be allowed to alter it. The 
general mode allowed for other users can be changed 
after the file has been created by use of the CHANQE 
command. For APL- structured files the mode should be 
write or read-modify, while for coded files it should 
be write or reads 

4. Files can be accessed by other users through locked 
functions which can provide extremely general control 
over the permitted operations. For example, the locked 
function can prohibit alteration of the first five 
records of the file, or, it can prohibit adding records 
that are not vectors of 4 integers. The success of 
locked functions as a security measure rests on 
preventing the user from learning the file name, the 
user number, or the password, and preventing him from 
accessing the file directly. To assure this, the 
locked function should not call other functions (except 
those local to itself J lest someone substitute a 
subversive function having the same name. In 
particular, DFT should be used directly rather than 
using FTIE. CA subversive FTIE could print its 
arguments and thus reveal the file password!. Also, □ 
input should not be used while the file is tied, and 
the file should be untied prior to exit from the 
function. To ensure that the file will be untied, use 
UTRAP to specify a trap line that will release the file 
prior to exit. 

Hote that the file category , password , and mode are independent 
restrictions on access by other users. Each of these further 
restricts the type of access permitted to others. Unless 
different options are specified when the file is created or the 
controls are changed, the APL system selects private as the file 
category, assigns no password, and selects read or read-modify 
mode (depending on whether the file is coded or APL-structured 
type, respectively} . 

APL-STRUCTURED FILE OPERATIONS 

Sequential file operations . The file operations that ordinarily 
require a record number can also be used without specifying the 
record number. When this is done, the record number used is the 
current file position (available in the result of F$TATVS\. The 
file position can be reset using FPOS and is incremented by each 
successful read, write, or deletion. When a file is tied or 
created, the position is initially zero. For example: 

l ISAI- l FTIE 5 (The file position is zero.) 

Z+FREAD 5 (Record is read; the position becomes 1,1. 

K F WRITE 5 (Record 1 is written) 

T FWRITE 5 (Record 2 is written) 

W FWRTTE 5 (Record 3 is written) 
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When a record number is provided for the operation, the file 
position will be set one greater than that number if the 
operation succeeds. 

File create : 'file-name [ zpasswdl l/optionsl' FCREATE fnum 
The file create function can be used to create a file and specify 
options about the type of file. When the file is created, it is 
tied to the file number fnum. In addition to the name of the 
file, the left argument may include the password the file is to 
have. Examples of file creation follow: 

'FILE1' FCREATE 11 (A file named FILE1 with 11 

as its number.) 

1 FILE2: SESAME 1 FCREATE 2 (A file with SESAME as its 

password.) 

The list of options can include any of the following separated by 
spaces: DA, C, WR, S, or pu (to specify direct access, coded, 
write mode, semiprivate, or public) • 

File Write : array FWRITE fnum[ ,mum] 

The FWRITE function writes its left argument on the file having 
fnum as its number as the record having mum as its record 
number. This will replace any existing record in that file 
previously having that record number. 

File read : result<-FREAD fnuml,rnuml 

The FREAD function reads from the file having fnum as its file 
number that record having mum as its record number. If that 
record does not exist, an empty numeric vector is returned, and 
the file status (see FSTATUS) will indicate that the last read 
attempt encountered a nonexistent record. 

File record delete : FRDEL fnuml,rnuml 

The FRDEL function deletes the record mum from file fnum. If 
the record was absent already, nothing is done Cexcept that the 
file position changes) and no error results. 

Free record number : rnum+FFREE fnum 

The FFREE function returns the first free (unused) record number 
for file fnum. This is a useful way to select the record number 
for a new record when the application does not require a 
particular ordering of the records. 

File positioning : FPOS fnum f rnum 

The function FPOS sets the position of the file identified by 

fnum to record number mum. 

File status : result+F STATUS fnums 

The file status function returns various information about the 

condition of files identified by file numbers in the right 
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argument. If the argument is a vector, the result is a matrix 
having a row for each file number in the right argument. If the 
argument is a scalar, the result is a vector of information about 
the single file. The columns of the result contain: 

Column Contents 

1 Largest record number currently in use 
or "1 if the file is empty. 

2 Current file position. 

3 File size in words. 

4 Unused space in words. 

5 Lost space in words. 

6 Space not used because of record sizes not 
being divisible by 64. (This space is called 
"tails" because it resides at the tail ends of 
physical record units.) 

7 if APL-structured file, i if coded type 
file. 

8 if indirect access file type, 
1 if direct access file type. 

9 if last read attempt succeeded, i 

if the record was absent (APL structured 
files) or too long (coded files) . 

Note that only columns 7, 8, and 9 are meaningful for coded 
files. All columns will be zero if the file is not tied. 

The largest record number does not take account of records 
that have been deleted. That is, the largest record number is 
the largest number currently in use for records that actually 
exist. 

Print status ; PSTATUS 

The PSTATUS function prints the information returned by FSTATUS 
F SUMS along with the file names. The information is given in a 
descriptive format and is thus a convenient way to discover the 
status of all tied files if you do not remember the meanings of 
the columns in the result from FSTATUS. The following example 
illustrates the format used. 

PSTATUS 

SAME SUMBER LAST R POS SIZE USUSED LOST TAILS 

COMTIME 14 8 76 8 64 3 97 

LIB 2 1 14 2 56 SB DA 

*4123456 SYSGES 45 CODED FILE 

REFMAS1 1 94 80384 2496 7744 3233 DA 
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File names ; result""*"* AMES 

The FN AMES function returns a matrix of names (and user numbers) 
of files currently tied. The number of columns in the matrix is 
always 16. For example, 

FN AMES 
SAMPLE! 
ALGEBRA 
•4123456 FILE! 

File numbers ; resul t+-FNUMS 

The FNUMS function returns a vector of numbers in use for tied 
files. The order is the same as the order of file names in the 
result from FN AMES- 

File untie ; FUN TIE fnums 

The FUNTIE function unties all files for which their file numbers 
appear in the vector or scalar right argument. This produces a 
permanent stored copy of each file. The new permanent copy will 
replace any previously existing file having the same name, unless 
the active file was newly created. To untie a newly created file 
when the same name is already in use for another stored file, 
first use UDROP to remove the old file. If any of the files 
specified in the argument is not tied, nothing is done and an 
error message results. To untie all tied files, use FUNTIE 
FNUMS. For indirect access files, FUNTIE saves the file whether 
it has been changed or not. This modifies the date indicating 
when the file was last changed (see ULIB) . 

File return ; FRETURN fnums 

The FRETURN function behaves as FUNTIE for direct access files 
and behaves as FERASE for indirect access files. This frees the 
number of a currently tied file for other uses with a minimal 
impact on stored files. The use of this function is recommended 
for cleaning up any files that may have been accidentally left 
tied. File numbers in the argument that are not in use for tied 
files are ignored. 

File erase ; FERASE fnums 

The FERASE function erases the active copy of the file but leaves 
any stored copy of the file. (See the section on direct access 
files for exceptions.) To remove a stored copy, use UDROP. 

File tie ; »[*account] file-name [:passwd] [/options] 1 FTIE fnum 
The FTIE function gives the number fnum to the previously stored 
file having the indicated name. If no previously stored file 
having that name is found, an error message is given and no file 
tie results. If a user number is given, the stored file is 
sought under that user number rather than the one used when 
signing on to the system. The password need be given only if 
another user number was provided and a password was given to the 
file. Examples using FTIE follow; 
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'FILES' FTIE 7 CA user ties one of his own files.) 
'*A0Q123k FILE6'FTIE 8 CA user ties a file belonging 

to another user.) 

'*412 34 56 FILE! -.SESAME' FTIE 9 

Note that the options DA and c (for direct access or coded files) 
must not be provided to the FTIE function. These options are 
chosen when the file is created and can be altered only by making 
a copy of the file. If the file number or file name is in use 
for another tied file, an error message results. The list of 
options can include either of the options rd or RM. These 
options are discussed in later sections. 

File pack ; ' l*account] filename L ipasswd] 1 FPACK fnum 
The FPACK function is designed for occasional use to condense a 
direct access file by eliminating lost and unused space. 
Ordinarily, the FPACK function causes the file to be tied, packed 
in place, and then untied. However, file damage may cause the 
file to remain tied in write mode. In this event, other file 
system functions tFUNTIE , FREAD , FWRITE , or FSTATUS) can be used 
to diagnose or correct the problem. 



SPECIAL CONSIDERATIONS FOR CODED FILES 

Coded files are the standard type of file on the operating 
system for information interchange between programs, card 
readers, printers, and so forth. Coded files are essentially 
intended for sequential access; replacement of records, except 
at the end, is not practical. Instead, such changes would 
ordinarily be made by copying the file and making the changes as 
the new file is produced. 

Coded files consist of lines (essentially vectors of 
characters) which can be separated into groups by end of record 
marks. These groups can in turn be separated by end of file 
marks. At the end of the file is an end of information mark. 
The characters in a line of a coded file are restricted to the 
64-character set. The 256 APL characters are translated into 
these 64 characters as shown in Appendix C. Briefly, the letters 
A to Z become A to Z, all symbols with approximate equivalents 
for an ASCII printer are translated into those equivalents, and 
all others become @. When translating from the 64-character set 
to APL characters, all symbols are represented by equivalents, 
and § is represented as s (the symbol used for illegal 
overstrikes) . 

The functions FTIE, FUNTIE , and FRETURN have essentially the 
same meanings for coded files as for APL- structured files. 
However, special functions must be used for reading, writing, and 
repositioning coded files. 
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Creating a coded file . A coded file can be created using 
vc RE ate by including c as an additional parameter. For example, 

'PRINT :XXX/C'FCREATE 9 

Coded read ; result+CFREAD fnumC , rows, columns] 

When the right argument contains only the file number, the result 
returned by CFREAD is a character vector containing the next line 
from the file, or if an end of record, end of file, or end of 
information was encountered, the result is the scalar integer 1, 
2, or 3, respectively. The file position changes after each read 
so that the next read will give the next line of the file. The 
FREAD function cannot be used in place of CFREAD with a coded 
file. If a line is longer than 1280 characters, only 1280 
characters are provided for each call to CFREAD, although the 
file is positioned so that the next call to CFREAD will be able 
to continue the same line. In this case the file status (see 
FSTATUS) will indicate that the last read attempt did not read 
the entire line. 

The right argument to CFREAD may optionally include the 
number of rows and columns the result is to have. In this case, 
the result is a character matrix (unless an end of record, end of 
file, or end of information was encountered) containing multiple 
lines from the file. Lines longer than the requested number of 
columns are shortened by omitting any extra columns, and short 
lines are extended to the requested number of columns by 
extending with blanks on the right. The actual number of rows 
may be less than requested if there are insufficient lines in the 
file before an end of record, end of file, or end of information. 
When the right argument to CFREAD includes the number of rows and 
columns, lines longer than 1280 characters may be read by 
providing a sufficiently large number of columns. 

Coded write ; array CFWRITE fnum 

The left argument to CFWRITE is written at the current position 
of the file. The left argument must be a character vector, 
scalar (which is treated as a one-element vector), or matrix, or 
a scalar or vector containing the integers 1, 2, or 3. A 
character scalar or vector produces one line in the file, whereas 
a matrix produces one line for each row of the matrix. However, 
a unit separator symbol (the V over S overstrike) embedded in the 
left argument also causes a new line to begin, just as it would 
if the array were displayed on a terminal. Trailing blanks in a 
line are removed. The integers 1 or 2 produce an end of record 
mark or end of file mark, respectively. A vector of integers can 
be used to produce a series of these marks. The file position 
is altered after each write so that subsequent writes will add 
information after that produced by the present one. Anything 
written to the file is automatically followed by an end of 
information mark. This has the effect of truncating the file if 
the write was not performed at the end of the file. The function 
FWRITE cannot be used for a coded file in place of CFWRITE. 
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Because of peculiarities of the operating system, a colon at 
the end of a line in a coded file will vanish, and two or more 
colons next to each other may be considered an end of line 
(depending on the position within the word where they occur) . 
These problems can be avoided entirely by not using colons in 
coded files. 

Coded file positioning : integers CFPOS fnum 

The function CFPOS repositions the file according to integers in 
the scalar or vector left argument. The first element in the 
left argument indicates the action to be taken, and the optional 
second element may contain a repetition count. 
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Operation Value 

Rewind 5 

Skip record 1 

Skip file 2 

Skip to end 3 

The rewind operation positions the file at its beginning. The 
rewind and skip-to-end do not allow use of a repetition count. 
For the skip record or skip file operations, the repetition count 
may be negative to skip towards the beginning of the file. If no 
repetition count is given, a count of 1 is assumed. The skip 
record operation counts end of file marks as records. The 
skipping never goes past the end of information mark or the 
beginning of the file, even if the repetition count has not been 
satisfied. 

Batch job submission : Z+-CSUBMIT fnuml,type] 

The coded file fnum is submitted as a batch job. The type may be 
if batch output produced by the job should be discarded, or 1 
if it should be printed or punched at the central batch site. If 
no type is specified, a default type of Coutput discarded) is 
used. The file must be a properly constructed job file (see 
operating system reference manual). In particular, the first two 
lines must be a job card and account card. The file must not be 
direct access type. If the operation is successful, the active 
file vanishes as if FEEASE had been used. The result returned is 
the job name assigned to the job. This name can be used with the 
ENQUIRE command (see Section 13) to determine whether the job has 
completed. Note that the number of concurrently executing 
deferred batch jobs allowed for a given user number is controlled 
by the system. 

SPECIAL CONSIDERATIONS FOR DIRECT ACCESS FILES 

A direct access file differs from an indirect access file in 
that all operations interact with the permanent file itself, not 
with an active copy. This has both advantages and disadvantages. 
One advantage is that a copy of the entire file need not be made 
by the system when the file is tied. One disadvantage is that a 
program can stop executing due to a system problem in the middle 
of a series of file writes, and the stored file can end up with 
contradictory information. Another disadvantage of direct 
access files is that write operations take a little longer 
(because the APL system does less buffering of information due to 
the risk of a system problem freezing the file in a temporary 
state) . 

To create a direct access file, include the parameter DA in 
the left argument to FCREATE. A direct access file may also be a 
coded file if desired — these two options can be chosen 
independently. The following are examples of direct access file 
creation: 
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^FJTLEX/DA 1 FCEEATE 4 

^FTLET: ZTZ/DA S WR l FCEEATE 5 

t-FTLEZ/C DA T F CREATE 6 

All operations with direct access files take the same form 
as for indirect access files, but because of the differences 
between the two file types, the file tie, untie, and file erase 
operations behave differently: A file tie to a direct access 
file does not make a copy of the file. An untie does not create 
the permanent copy, it merely releases the file number for use 
with other files and releases the file itself for access by other 
users. An erase removes both the active and stored copy of the 
file because they are the same thing. In addition, )CLEAR or a 
telephone disconnect cause an automatic FUNTXE of a direct access 
file (thus leaving a stored file) whereas an indirect access file 
would be erased. 

If a telephone disconnect occurs, the file remains tied for 
10 minutes. The operations that were in progress can be 
continued by use of the operating system RECOVER command (Section 
13) . However, logging on without using the RECOVER command will 
leave the file tied until the 10 minute period is over, possibly 
causing an error message indicating the file is busy. 

SYNCHRONIZED FILE OPERATIONS 

At present, it is not very practical for two users to update 
a single file at the same time. With an indirect access file the 
two users are actually updating separate copies of the same file, 
and whichever user unties the file last will create a stored file 
with his updates, but will replace any stored file just produced 
by the other user. The operating system does not allow two users 
to be tied to the same direct access file in write mode at the 
same time, so no conflicts can occur, but an error occurs if a 
second user attempts to tie the file. However, users can tie a 
direct access file in read mode (which allows other users to read 
the file at the same time) or read-modify mode (which means the 
user desires only to read the file but has no objection to 
another user writing to the file at the same time) . To tie a 
file in read mode or in read-modify mode, include RD or RM (but 
not both) in the left argument to the FTJM function. For 
example, 

^FrLEl/RD^FTrE 9 (Read mode.) 

*~FrLE2: SECURE/ RM «- FTIE 10 CRead-modif y mode. ) 

These modes are allowed for indirect access files as well. Read 
mode can be used for APL-structured or coded files while 
read-modify mode is allowed only for APL-structured files. 
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FILE EFFICIENCY 

Although many users need not concern themselves with the 
information presented here on file efficiency, users of very 
large files will find this information important. Use of a few 
fairly simple techniques can result in improved speed and reduced 
storage requirements. 

First of all, each APL- structured file has an initial size 
of 64 words used for a table of available space. In addition, 
one word is required for each record number up to the last record 
number in use. This space is allocated in multiples of 64 words. 
These two factors combine to make it inefficient to store many 
files with only a few records in each rather than one file with 
many records. Also, it is inefficient to leave large gaps 
between record numbers as the unused numbers require an average 
of one word each. 

Indirect access files grow in multiples of 64 words, but 
direct access files grow in multiples of a logical track (usually 
several thousand words, depending on the storage device used). 
There is consequently a considerable space advantage to using 
indirect access files for files smaller than several thousand 
words. The number of words required for a file that results from 
writing an array S. is 

t H(ppB)+.tlx/pfi)*£ 

where D is the density of packing in the file — 1 for floating 
point, 7.5 for characters, and 60 for boolean (See also section 
12.). This size is then rounded up to a multiple of 64 words. 
Because records require multiples of 64 words, there is some 
saving in space if many little arrays can be packed together and 
written as a single record. In addition, actual transfers and 
operating system requests are reduced because no buffering of 
output is used for APL-structured files. 

When records are erased or replaced by records of a 
different size, the APL system keeps track of any unused gaps in 
the file where records can be placed in the future. The total 
amount of this space in words is in column 4 of the result 
returned by the FSTATVS function. It may happen that the number 
of gaps exceeds the size of the table, in which case the smallest 
gap is removed from the table. This results in a certain amount 
of space becoming unusable, and the total amount of this lost 
space is in column 5 of the result returned by the status 
function. Lost space can also result in a direct access file if 
a telephone disconnect or system problem prevents the file from 
being untied iUTl}* FTSTEM* , UTM: ABORT 1 , and UTM-'-OFF 1 untie files 
properly J , and if the RECOVER command is not or can not be used. 
All lost and unused space can be recovered by applying the FPACIL 
function to the file. Because each record occupies a multiple of 
64 words, some space is generally left unused. This space is 
returned in column 6 of the result from FSTATDS, 
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Details of the space required for coded files can be found 
in the operating system reference manual. Coded files have a 
speed advantage over APL- structured files when the information is 
accessed sequentially, the records are small, and the limitations 
of the 64-character set are not restrictive. 

INTEGRITY OP DIRECT ACCESS APL-STRUCTURED FILES 

File integrity refers to the ability of a file to retain 
internal consistency. Some file access methods render a file 
practically useless if a program operating on the file does not 
complete properly (due to a flaw in the program or a system 
problem) . Every effort has been made in the design of the 
APL-structured file system to minimize the chance of such damage. 

All alterations to an APL-structured file are performed 
immediately and thus occur in exactly the order requested. When 
multiple files are being updated, one file will not be several 
transactions ahead of another. A checksum is computed for each 
file record so that if the storage device corrupts the 
information and is unable to detect the error, the error will 
still be detected by the APL system. A system halt, program 
halt, or telephone disconnect will leave the file in a 
satisfactory state except that in the rare event of a system halt 
requiring a level zero deads tart within a minute of extending a 
direct access file, there is some chance of damage to newly 
created or replaced records. 

File damage will cause an error message to be printed at the 
time it is detected. The damage will usually affect only one 
record of the file. If the file cannot be reconstructed, 
installation personnel can assist with restoring the file to its 
state the last time files were dumped to magnetic tape. 

Note that a telephone disconnect or system problem that 
results in failure to untie the file may cause the information on 
file space utilization (unused space, lost space, and tails) to 
be incorrect. This does not hinder utilization of the file and 
can be corrected by copying the file or applying the FPACK 
function to it. 



FILE EXAMPLES 

The following sample functions taken from the workspace 
FILES 2 under user number APLl illustrate simple file operations. 
The first function, FCOPY , can be used to copy an APL-structured 
file. Such a copy might be made to convert the file from 
indirect access to direct access form or to compact the file by 
minimizing unused space. The left argument should be the 
character argument required to tie the old file, and the right 
argument should be the character argument required to create the 
new file. Note that the first line illustrates a simple way to 
select a file number that is not already in use. 
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VFCOPYZQlV 

VA FCOPY BiP;K;I;J 

[I] A FTIE Jf-l + r /O.FNUMS 
[2] B FCREATE J+I+l 

[3] K+(FSTATUS I)[l] ft GET LARGEST RECORD NUMBER 

C+] L1:-*U<0)/L3 

[5] P+FREAD I,K ft READ RECORD K FROM FILE I 

[6] ^(FSTATUS J)[9]/L2 ft IF ABSENT RECORD 

[7] P'FWRITE J,K ft WRITE RECORD K TO FILE J 

[8] L2-.K+K-1 

[9] -vLl 

[10] L3-.FUNTIE I ,J ft UtfTJff BO^ff FILES 

[II] •COPY COMPLETE' 
V 

The next function is useful for listing a coded file. The 
right argument may be the name of a stored file or the number of 
an active file. If a name is given, the file is tied, listed, 
then untied. If a number is provided, the file is listed 
beginning at its current position and is left tied. 

vclistloiv 
vclist b;k;l 

[I] -K0 = 0\0p£-«-B)/Ll n IF FILE ALREADY TIED 
[2] B FTIE K<-l + [ /O.FNUMS 

[3] LlxL+CFREAD K 

[4] -K0 = ppL)/L2 ft SCALAR INDICATES SPECIAL MARK 

[5] L 

[6] +L1 

[7] L2:-»-L3 + 2xL-l 

[8] L3:'-END OF RECORD- 1 

[9] +L1 

[10] '-END OF FILE- ' 

[II] -»-Ll 

[12] '-END OF INFORMATION-' 
[13] FUNTIE(.0*0\0pB)/K 
V 

The next two functions are useful when a file is too large 
to list at a terminal but it is necessary to learn the general 
structure of the file. The function FMAP prints the structure of 
an APL file, and the function CMAP prints the structure of a 
coded file. Both functions allow a character argument or a 
numeric argument in the same manner as CLIST. If the file is 
already tied (for numeric arguments) the mapping begins at the 
current file position. FMAP prints record numbers and the types 
(C or N for character or numeric) and shapes of records that 
exist, or ABSENT for absent records. CMAP prints the number of 
lines in records and prints EOR, EOF, or EOI when an end of 
record, end of file, or end of information is encountered. 
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VFNAPIU1V 
VFMAP B;K;P 

[I] -*-(O=0\0p£-«-£)/2;i a IF B IS NUMERIC 
[2] B FTIE jf-t-l+r /0,FNUMS 

[3] LI :^{~1*HF STATUS K)/L2 fl IF FILE NOT EMPTY 

[4] 'NO RECORDS 1 

[5] ->0 

[6] L2: '■NUMBER, TYPE, DIMENSIONS 1 

[7] £3 :-*•(</ 2+P STATUS K)/L5 n IF FINISHED 

[8 J P+FREAD K 

[9] +(.FSTATUS K)191/LH A JP i?£4Z> FAILED 

[10] ~1 + (FSTATUS £)[2];0 1 0\ « <7tf ' [l+0 = 0\0pP] ; pP 

[II] ->Z3 

[12] L4:~lt(P<?2MmS tf)[2];» ABSENT' 
[13] -+£3 

[14] L5:Fyi?3'J£'(0*0\0pB)/A: 
V 



VCilMPED]V 
VCWP B;K;P;C 

[I] -»-(0 = 0\0p.K-<-£)/Ll a IF B IS NUMERIC 
[2] 5 PTIff K+l+[ /0,FNUMS 

[3] Ll:C«-0 

[4] £2:->-(0 = p.pP-<-<7P;?£71I> X)/£3 

[5] O-C+l 

[6] -*L2 

[7] L3:-»-(C=0)/L4 

[8] C; l LINE' ,(C*1)/'S' 

[9] £4; '£0«, 'i?P2«[P] 

[10] -»(P<3)/L1 

[II] FUNTIE( i 0*Q\0pB)/K 
V 
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Section 11. APL Public Libraries 



The standard APL release includes the following workspaces 
stored under the user name APLl: 

APLNEWS News about the changes in the APL system as well 
as a list of reported bugs and requests for system 
changes . 

FILES IS File system functions. 

FILES 2 Contains functions from FILES IS for primitive file 

operations as well as additional functions for 
more elaborate file operations. 

CATALOG A guide to workspaces in the APL public libraries. 

To learn how to use any of these workspaces , type a command of 
the form ULOAD^APLl FILES IS f and then type DESCRIBE. 

APL PROGRAM LIBRARY STANDARDS 

It is suggested that installations reserve the user names 
APLl to APL999 for APL public libraries. Although these user 
names need not be defined in the system, they should not be used 
for other purposes. It is suggested that programs placed in 
these public libraries be of fairly general interest so that 
users will find it rewarding to browse through the various 
workspaces . Workspaces of interest only to a specialized group 
or course should be stored elsewhere. 
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Programs placed in the public libraries should be well 
documented. The available documentation may be entirely in the 
workspace or partly in the workspace and partly in a manual . In 
any case, the documentation should be readily available. The 
advantage of having the documentation in the workspace is that it 
v/ill be immediately accessible. The disadvantages are that the 
documentation is slow to print and therefore tedious to read, and 
the format of the documentation is constrained by the APL 
character -set. Generally, the amount of documentation determines 
whether it is practical to put the documentation in the workspace. 

Documentation in the workspace should consist of functions 
or variables that describe the workspace. The documentation 
should be able to be printed with a standard APL terminal and 
should print within a standard 65 column page v/idth. The 
following documentation variables or functions are suggested. 
Typing the name of the function or variable should cause the 
information to be printed. 

ABSTRACT . Should contain a brief description of the 
contents of the workspace. 

DESCRIBE . This should give the user further details 
than provided in the ABSTRACT. This should print the 
names of all functions intended for the user to use as 
modules along with a short description and names of 
related HOW functions (see below) . If groups are 
defined in the workspace, describe them and their 
purposes. 

HOW functions. If a function has the name NAME, 
detailed documentation of that function should have the 
name NAMEHOW. There is no point in giving a 

line-by-line description of the function. The APL 
program is already an excellent description of the 
separate steps. The HOW function should tell what the 
function does and how to use it as a module. In some 
cases it should outline major steps in the processing 
and describe the method used. References might be 
appropriate. Special limitations of the function 
should be discussed. 

SOURCE. Should give the author's name, an inquiry 
name, and an inquiry address. The date when the 
workspace was contributed should be included. 

CHANGES. Changes should be documented by a function or 
variable having a name of the form CHANGES092 67 5 (so 
that the name includes the date of the changes) , 
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GRPDOC . The group (locked matrix of names) GRPDOC 
should include names of all documentation variables and 
functions so that the user can readily erase them to 
make more space available in the workspace or reduce 
disk storage charges . 

Even when most of the documentation is in a separate manual, the 
following variables or functions are required: ABSTRACT, SOURCE, 
GRPDOC, and DESCRIBE. 
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Section 12. Optimization of APL Programs 

This section discusses some of the techniques that can be 
used to make APL programs perform better and run with lower 
demands on computer resources. It may seem out of place to 
discuss efficiency in an APL manual — after all, APL should free 
the user from being concerned with the nature of the particular 
computer being used — but the techniques discussed here may yield 
efficiency improvements as large as a factor of a hundred. To 
neglect discussing efficiency could leave many users with the 
mistaken impression that APL cannot perform well enough to be 
used for their problems. 

Often, the question of efficiency calls to mind the 
fanatical programmer who constructs a program he considers 
efficient but who in doing so produces a totally incomprehensible 
collection of operations. It should be remembered that for many 
programs the programming time is so great that the only kind of 
efficiency worth considering is the sort that makes the program 
easy to understand, free of errors, and easy to change. 
Fortunately, a simple program is usually an efficient program. 
However, when improving the performance of the program does not 
coincide with simplifying it, the optimization should not be 
applied unless it is very important for the program to perform 
well. 

As a very blatant example of misguided optimization, 
consider the following statement: 

K4-l,0pP+0,r/L*-iQ+pR 

This statement was probably contrived by someone who believed 
that the most efficient program was the one that required the 
smallest number of lines. The fact is, execution proceeds from 
one line to the next very rapidly compared to the time required 
to perform the extra steps needed to fit the operations in one 
line. The following statements are a more straightforward way to 
achieve the same results: 
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L+iQ-t-pK 
P+0,Q 

One way to estimate the relative time required for an expression 
is to count the number of operations required. (This method is 
fairly valid when the number of elements in arrays is less than 
about 20.) For this method of estimation, specification is not 
counted at all (it takes relatively little time) . The one line 
version totals 6 operations while the three line version requires 
only 3 operations. The efficiency expert who wrote the one line 
version devoted extra time to adding three operations, which 
double the time required for execution. The one line version is 
harder to understand, is more likely to contain errors, and when 
changes are made, the rest of the line hinders revision. The one 
liner is thus a poor example of efficiency in a 31 respects. 

At this point it must be stated that much of the information 
in this section is relevant only to this particular APL system. 
Also, it may occur that something that is particularly slow now 
will become particularly fast in later versions of the system. 
Other versions of APL on other computers will often show quite 
different characteristics. In fact, according to Paul Berry (who 
wrote one of the first books on APL) , the popular belief that one 
line programs are more efficient is based on a system for which 
this is true. An early version of APL on a small computer 
actually required considerable time to change from one line to 
the next because only one line at a time was kept in main memory. 
Although very few present users of APL ever used that particular 
system, its influence persists. 

STORAGE REQUIREMENTS 

Although the APL system allows a workspace of up to about 
119,000 words (provided the user is validated to use that much 
main memory and the installation has that much) , equivalent to 
892,500 8-bit bytes, there are practical reasons to keep a 
workspace smaller. The operating system uses computer resources 
much more effectively when it runs programs requiring minimal 
amounts of central memory. Also, the "response time" for an 
interactive program to respond to a command requiring a trivial 
amount of processing increases somewhat with central memory 
requirements. In addition, minimizing storage requirements 
improves the chances that the same program will be able to run 
under another version of APL or on a computer with less central 
memory . 

The vector UWA contains information about the memory 
currently in use for the APL system and the active workspace. 
The field length is the amount of memory space currently in use. 
The APL system manages that memory space and at any given time 
some of the space may not be in use for functions, variables, and 
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other information kept by the APL system. The APL system 
evaluates storage requirements from time to time and resets its 
actual field length according to current needs. The user can set 
\2WA to specify the maximum and minimum field lengths to be used. 
Increasing the maximum and minimum field length generally reduces 
the central processor time used by APL to reorganize its storage, 
but as discussed previously, reduces the operating system 
efficiency. As a general rule of thumb, leave the minimum field 
length at its normal value, and set the maximum field length 
large enough to avoid WS FULL plus a little extra to prevent 
frequent storage reorganization. Incidentally, referencing the 
value of UWA in a statement causes the APL system to reorganize 
its storage, so programs should not alter or read the value of 
QWA too often or performance will be degraded. 

Obvious techniques for minimizing storage requirements 
include using algorithms that minimize temporary storage, using 
local variables and local functions to assure automatic erasure 
of unneeded objects, and using BEX to erase other functions that 
are no longer needed. HEX can also be used to erase variables, 
but respecification (e.g., A+' ' ) is faster. Files can be used to 
store functions and variables until they are required. ULOAD can 
be used to load another workspace of functions and variables. 
Any variables that must be communicated from one workspace to the 
next can be placed in files — files remain tied when another 
workspace is loaded. Of course, any of these techniques can be 
overdone. Do not let the time spent performing these operations 
outweigh the storage they save. 

The space in words required for an APL array A is 

2+(ppil) + r(x/pjt)*Z? 

where D is the number of elements packed per word — 1 for floating 
point values, 4 for characters, and 32 for logical. Clearly, 
there is an advantage to using the internal logical 
representation if the values are ones and zeros. The system does 
not always use the logical representation when it could. For 
example, the scalar constants 1 and are floating point, and 
1+0 is floating point. However, the following functions always 
produce a logical result: AaB , AvB, AhB , AtB , A-B , A*B , A<B , 
A<B , A>B, A>B , and AeB . Also, the functions that restructure or 
rearrange their arguments always preserve the same type of 
representation, so tfpo is floating point, while iPpl is logical 
(because vector constants consisting of ones and Eros are packed 
as logicals) . To assure that a result is logical, apply 1= to 
it. 

Expressions like A*-B<-C<-\100 do not cause three copies of 

ilOO to be produced. Actually, only one copy is kept. However, 

subsequently altering an element of A, B, or C, (e.g., 4[3]-<-9) 

will cause a separate copy to be made. Similarly, arguments to 
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functions are not actually copied unless an attempt is made to 
alter them using indexed specification. Unlike most other APL 
systems, using function arguments rather than global variables 
incurs no storage penalty. 

The operation A/iB is treated as a single function to avoid 
generating \B when only a few elements will actually be selected. 
This combined operation is somewhat faster and uses considerably 
less storage for an important class of cases. 

Storage requirements for programs are too complicated to 
discuss in detail. As a rule of thumb, unless you make a special 
effort to put a lot on each line, figure that an average 
statement takes about 10 words of storage. The first time a 
statement is executed it is converted to an internal form for 
more efficient execution. In the internal form the function 
almost always requires somewhat more space. The storage overhead 
per line of a function averages about 3.5 words for lines without 
labels and 4.5 words for lines with labels. 

The APL system keeps a "symbol table* in the workspace 
containing all names of functions, variables f and labels, Once a 
name has been used (even if the use resulted in a VALUE ERROR). 
the name remains in the symbol table. The space used by names 
that are no longer needed can be recovered by copying all objects 
into a truly clear workspace. The recommended procedure is s 

) CLEAR (Obtain a clear workspace,) 

UENV+o (Copy global objects, J 

(12 3 4 UN AMES x 0LDWS % )UC0PI l 0LDWS l 

UENV*-l (Restore to normal value, J 

US AVE X NEWWS* 

This procedure will also recover space in workspace areas other 
than the symbol table in some circumstances. 

Space can be conserved in the symbol table by using names 
consisting of a single symbol whenever possible, Space can also 
be conserved by using the same name in several functions for 
local variables or labels . A common convention is to use the 
letters A to Z for local variable names and use LI, L2, and so 
forth for labels. 



CENTRAL PROCESSOR TXME 

For many programs the main optimization problem is to 
minimize central processor time. First of all f one of the 
primary determinants of central processor time is the 
appropriatness of the algorithm used. The algorithm should be 
appropriate to the data to be processed and appropriate to APL, 
Computer literature is filled with algorithms that are 
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"efficient" for other languages but which perform miserably in 
APL. Often a straightforward translation of a program from 
another language gives a program that performs poorly because it 
fails to take advantage of the more powerful APL functions. 

For most operations in APL the time required for the 
operation can be separated into a per-elcment time required to 
process each element of the arguments and result plus a setup 
time required for interpreter overhead, to check the arguments 
for compatibility of dimensions, to compute the result 
dimensions, and allocate space for the result. The time per 
element varies considerably with the complexity of the operation. 
The sine function, for example, requires far more time per 
element than addition. The time also depends some on the way the 
values are stored; operations defined only for logic values 
perform better if their arguments are internally represented as 
logical type, and arithmetic operations are faster for the 
floating pcint internal type. The setup time varies far less 
from function to function than the time per element. 

For many functions the setup time is on the order of 25 
times as great as the time per element. This means that the 
setup time is negligible when thousands of elements are to be 
processed, but the setup time constitutes about 95 percent of the 
time when only one element is being processed. For most 
programs, the setup time limits speed more than the time per 
element. Thus the first step to optimization is to minimize the 
number of operations to be performed. For example, if p x is used 
many times in a function, it would be worthwhile to assign the 
value of pX to a variable (assigment requires negligible time) . 
Often a branch statement can be added to skip steps that are not 
required except in special cases. 

When the arrays used have a large number of elements, the 
operations should be chosen to minimize the number of elements 
processed. For example, if v is a vector of 5000 characters, a 
few elements can be selected from v using N+M+V (which might 
process about 5000 elements) or using VU+iKl (which would 
process only a few elements) . The second approach is much more 
efficient. Similarly, rather than extending a vector by 
catenating one element at a time, it might be preferable to 
extend it with a large number of elements and then respecify the 
elements one at a time using indexed specification. 

It is commonly believed that APL branching for looping is 
slow. Actually, looping is fairly fast by itself but is usually 
a sign that the program is performing operations one element at a 
time — the amount of time required is mainly due to the number of 
operations being performed. Actually, looping is sometimes a 
very efficient way to perform an operation, especially if the 
number of iterations required for normal cases is small and the 
alternative requires more operations than are used in the loop. 
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On same APL systems central processor time can be saved by 
catenating output together and then printing it in a batch rather 
than as it is generated. However, for this APL system it is more 
efficient to print the output as it is produced. 

The following chart gives approximate timings for various 
operations. Be forewarned that these timings are approximate and 
will vary with the particular computer used and the internal 
workspace configuration. Times are expressed in terms of T, the 
time per element for addition. 

Time range Operations 

to r Time per element for A aB, Avb, and ~S for logical 

internal representation 

T to 5 xj Setup time per statement to be evaluated 

Time per element for most scalar and mixed 
functions 

5x7 to 25xr Time per element for complicated functions such as 

i4oJ5, A»B, A$B, and AlB] 
Time required for an unnecessary set of 

parentheses in a statement 
Time required to evaluate a constant other than o r 

1, 2, .5j "1, and ♦ «« 
Extra time per local variable for a function call 

A-rB 

25xT to 125x2" Gall to a user defined function with a few local 

variables 
Setup time for primitive functions 
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Section 13. Operating System Features for APL Users 

This section discusses a few operating system commands of 
interest to users of APL. The discussions cover only the more 
important details. Further information can be found in the 
time-sharing reference manual or volume 1 of the operating system 
reference manual. Be aware that the descriptions here are less 
detailed and may not be as up to date as the other manuals. Most 
of the commands discussed can be used as timesharing commands or 
batch job control cards. However, they cannot be used while in 
APL. Use the commands before issuance of the APL command/ or use 
UTM^SJSTEM 1 to leave APL to use these commands. Note that none 
of these commands allow embedded spaces. 

If NAM/IAF is not used for communications with terminals, 
some special precautions must be observed for these commands. 
When an ASCII terminal is used, it may be necessary to first use 
the TERM command (see time-sharing reference manual) in order to 
produce legible output when using an APL type element. Also note 
that the "equals" symbol used in some of these commands may not 
print as = on ASCII terminals (depending on the terminal type and 
the type of terminal specified in the TERM command) . See 
Appendix F. 

HELLO 

The HELLO command allows you to sign on again with a 
different account number. 

BYE 

The command BYE is the correct way to sign off the system 
when not in APL. This is equivalent to the APL command UTM v OFF' 
or )OFF. 



60454000 E 13 _1 



PASSWOR 

The PASSWOR {pronounce it "password" — all operating system 
commands have names of seven letters or less) command allows you 
to change the sign-on password associated with your user name. 
The form for the command is: 

PASSWOR, old ,new 

where old represents the old password and new represents the new 
password. If there was no old password it will look like: 

PASSWOR, ,new 

RECOVER , n u mb e r 

The RECOVER command can be used to return to the state just 
before a disconnect or system malfunction occurred. The use of 
this command prevents loss of the active workspace or active 
files. The command is allowed only when the system prints 
RECOVER/SYSTEM at the end of the sign-on procedure. If you have 
already proceeded beyond that point and wish to initiate 
recovery, type HELLO to begin the sign-on procedure anew. The 
number you provide in the RECOVER command should be the terminal 
number that was printed after the previous sign on. (That is, 
the terminal number in effect for the session that terminated 
abnormally.) After you type the RECOVER command, the system may 
print RECOVERY IMPOSSIBLE, which indicates that the system 
malfunction was too serious to allow recovery, that too much time 
has elapsed (recovery information is retained for ten minutes), 
you signed on with a different user number, or that you gave an 
incorrect terminal number. When the RECOVER command is 
successful, the recovery information is destroyed and the system 
prints various information about the status at the time of 
disruption. Press the RETURN key to continue (or type STOP to 
exit from APL) . The recovery is sometimes imperfect. Some 
output may be lost, and the next input request may cause a 
question mark to be printed, and any special APL symbols used in 
the input may be translated incorrectly. Do not perform the 
recovery on a different type of terminal from that in use when 
the disruption occurred or the APL system will translate input 
and output incorrectly for that terminal. After a recovery, the 
next interrupt from the keyboard will terminate APL. To avoid 
this, perform the following steps after recovery (unless files 
are tied) 

)SAVE wsname 
) SYSTEM 
APL , WS=wsname 
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SETTL, number 

Sets the CPU time limit to number. This can be used before 
entering APLUM to prevent a *TIME LIMIT* error from occurring. 
The number should be the desired time limit in octal. In order 
to be meaningful, the time limit should be at least 10 (octal) 
and the last digit should be a zero. The time limit must not be 
set to more than the remaining allowance for the session. (You 
can use the HELLO command to start a new session and get a fresh 
allotment of CPU time.) 

S , number 

This command is meaningful only immediately after the system 
has printed *SRU LIMIT*. This command extends the SRU limit by 
the requested amount. If you type anything other than S, number , 
a forced exit from APL will occur and the active workspace will 
be lost. If you have used up the entire SRU allotment for the 
session, hang up the phone and then sign on again and use the 
RECOVER command. 



T, number 

This command is meaningful only immediately after the system 
has printed *TIME LIMIT*. The number has the same significance 
as for the SETTL command. If you type anything other than 
T, number , a forced exit from APL will occur and the active 
workspace will be lost. If you have used up the entire CPU time 
allotment for the session, hang up the phone and then sign on 
again and use the RECOVER command. 

CHANGE 

The CHANGE command can be used to change the name of a file 
(which includes workspaces) , its password, category, or access 
modes permitted to other users. The following examples show 
simple forms of the command. 

CHANGE, newname=oldna me 

Changes the name from oldname to newname. 

CHANGE , fi 1 ename/CT=ca tegory 

Changes the category. The category specified may be P for 

private, S for semiprivate, or PU for public. 

CHANGE , fi 1 en ame/M=mo de 

Changes the mode. The mode specified may be R for read, W 
for write, MODIFY for modify, or RM for read-^modif y . (Other 
modes exist but are not of interest for APL users.) 
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CHANGE, fi 1 en ame/PW=pass word 

Sets the file password. The password may consist of 1 to 7 

letters or digits. 

ENQUI RE, JN= j obn a me 

This command can be used to determine the status of a job 
submitted using the CSUBMIT function (discussed in Section 10). 
If the response indicates the job is not in the system, this 
usually indicates that it has completed or is presently being 
printed. 

PERMIT 

The PERMIT command can be used to give another user access 
to a private file or to specify the permitted access mode for a 
particular user of a semiprivate file. The form of the command 
is: 

PERMIT, filename ,acGount=mode raccount^mode , . . . 

The mode for each account number determines the type of access 
allowed. Meaningful modes for APL users are R for read, W for 
write, or RM for read-modify. 

CATLIST 

The CATLIST command can be used to examine access 
information about an individual file. The following examples 
show how to find information not provided by the APL QLIB 
function: 

CATLIS T/LO=P , FU=fi 1 en a me 

Similar to ULIB 1 filename 1 but also gives the password and 

count of the number of accesses. 

CATLIST/LO=PP ,FU=filename 

Gives access information for each user who accessed the 
specified private or semiprivate file. The information 
printed includes the number of accesses by each user, the 
access mode allowed for each user, and the date and time of 
the last access by each user. 



LIMITS 

The LIMITS command causes validation limits for the account 
number currently in use to be printed. Any numbers in the output 
that are followed by a B are expressed in octal (base 8} . The 
APL functions base-value and represent can be used to convert 
between octal and decimal. For example, 700 00B can be converted 
to decimal using 8r7 0, and 32768 can be converted to octal 
using (6p8)T32768. The following are the limits that are 
important to APL users : 
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TL = CPU time limit in 10' s (octal) per session. Append a 
zero to the right of the number to find the CPU time 
limit in octal seconds. In addition, there may be a 
smaller time limit per session. This other time limit 
per session can be overridden by using the SETTL 
command or by using the T, number command after a *TIME 
LIMIT* error occurs. If you have consumed your entire 
CPU time limit for the session, you can use the 
operating system HELLO command to get a new CPU time 
allotment, or hang up, sign on again, and use the 
operating system RECOVER command. 

CM = Maximum central memory field length. Append two zeros 
to the right of the number to find the central memory 
limit in octal words. Note that a more stringent 
restriction can be imposed on all timesharing users by 
the computer operator. This second restriction may 
vary according to the time of day. 

DB = The number of jobs allowed for the given user. The 
CSUBMIT function (see Section 10) is not allowed to 
submit additional jobs if the total number of jobs for 
that account number already equals or exceeds this 
parameter. The count of jobs includes the program 
attempting to use the CSUBMIT function. 

FC = Maximum number of stored indirect access files allowed. 



CS = Total storage in PRU's allowed for all stored indirect 
access files. (One PRU is 64 words or 640 six-bit 
bytes . ) 

FS = Maximum size in PRU's allowed for individual stored 
indirect access files. (One PRU is 64 words or 640 
six -bit bytes. ) 

AW = Access word. If the last digit is 4 or greater, the 
user is allowed to create direct access files. 

NF = Number of local files allowed. This includes active 
APLUM files and coded files. Allow one extra file when 
saving or loading a workspace. 

MS = Maximum number of mass storage PRU*s allowed for local 
files, which includes active copies of indirect access 
files but not direct access files. (One PRU is 64 words 
or 640 six-bit bytes.) 

SL = Maximum number of SRU's that can be expended during the 
job or session. 

DS = Maximum file size in PRU's allowed for a direct access 
file (or workspace) at the time it is tied (or 
resaved) . (One PRU is 64 words.) This limit is not 
imposed if the RD or RM option is used with FTIE- 
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AWSFIX and AFIFIX 

The APL system uses the user control word associated with 
operating system permanent files to identify which files are APL 
workspaces and APL-structured files. When operating system 
commands are used to copy a workspace or APL-structured file or 
to transfer one to magnetic tape, the user control word is lost. 
An appropriate control word can be restored by use of the AWSFIX 
or AFIFIX utility program. The following example shows the 
procedure that would be used for a workspace: 

BATCH (Use the batch subsystem) 
GET , AWSFIX/UN=APLO . 
AWSF IX , namel , name 2, ... 

In the example, namel, name 2 , etc. represent names of permanent 
files stored under the current user number that should Be 
processed. The procedure for restoring the user control word for 
an APL-structured file is identical except that AFIFIX is 
substituted for AWSFIX in the last two commands. Note that 
application of the wrong utility to a file may result in 
irreparable damage to the file. 

The AWSFIX utility can also be used to "seal" a workspace. 
A workspace can be sealed to safeguard the privacy of its 
contents while still allowing the workspace to be used by others. 
Sealing a workspace provides the following protection: 

1. An active copy of the workspace cannot be saved using 
)SAVE or US AVE. 

2. Objects cannot be copied from the workspace. However, 
the entire workspace can be loaded. 

3. If the user of the workspace gains control Cas a result 
of an error) an exit is taken from APL with the message 
17: PROTECTED WORKSPACE. 

These safeguards are intended for packages that start up hy use 
of a latent expression (DLX). There is no procedure to unseal a 
workspace, so a separate unsealed copy of the workspace should be 
retained if future changes are contemplated. The following 
example shows the procedure that would be used to seal two stored 
workspaces named MATH and PHYSICS. 

BATCH 

GET , AWSF IX/UN=APL . 

AWSF IX , MATH=S EAL , PHY S ICS=S EAL 
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Appendix A. Error Messages 



APL ERROR MESSAGES 



The following list describes the APL error messages and 
their meanings. It should be noted that most of these cause 
execution to halt (unless UTRAP is used to intercept the error 
processing) , but function definition mode prints its error 
messages and then may continue processing. 

00: INTERRUPT 

This indicates that an interrupt has been received from a 
terminal or that the overs trike N has been entered as the first 
nonblank symbol for quote-quad input. 

01: IMPLICIT ERROR 

An implicit argument to a primitive function is not defined. 
The system variable OCT is required for the functions A =E, A>B 
A<B , A>B, A<B, A*B, AeB , AtB, fflB, AW, Ajfl., CB, IB and vfl. The 
variable UIO is required for indexing, the axis operator, A§B , 
AiB, iB, iB, IB, ?B, and A?B. The variable UWSID must be defined 
for US AVE' 1 . URL is required for A?B and ?B, and DPP is 

required for monadic format. UENV is required for UCR , UEX , 
UFX, UNC, UNL, USTOP, UTRACE, ULOCK, ULTIME , UNAMES and UCOPY. 

02: SYNTAX ERROR 

Incorrectly formed statement. Check to be sure the 
statement has matched quotes, parentheses, and brackets. A 
common error is to forget to place an operation symbol between 
two variables when catenation is intended te.g., (M N)pQ instead 
of (M,N)pQ) . Other causes include failure to provide a right 
argument to a function, and use of a branch arrow other than at 
the left end of a statement. Check the state indicator to be 
sure a local variable or label is not obscuring a function having 
the same name. 
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03: DOMAIN ERROR 

The argument is not in the domain of the function or is an 
improper value for a system variable being specified. The 
following are examples of ways that domain errors can arise: 
1 3. 5 (an integer is required), QJ0-«-14 (the index origin must be 1 
or 0), fr +3 (character arguments are not allowed for many 
operations, even if the argument is empty), UPP+-H5 (printing 
precision must be between 1 and 15) . When QCT is not defined, 
zero is used as UCT in domain checks. Thus, tl+lff~l4 would not 
be allowed because exact integers are required when UCT is zero. 

04: LENGTH ERROR 

Lengths of the arguments to a function are incompatible, or 
the operation is not defined for arguments of that length. 

05: VALUE ERROR 

A variable used in an expression has not been assigned a 
value, a dyadic function lias been used without a left argument, 
the result variable of a function that returns a result was not 
assigned a value, or a function was used for which there is no 
current definition. Check the state indicator to see if a local 
variable has obscured a global variable or function. 

06: RANK ERROR 

The ranks of the arguments are incompatible or the operation 

is not defined for an argument of that rank. For example: i 1 1 
(not defined for vectors unless they have one element), ALl;2l 
(if A is a vector it has the wrong rank for the index applied) , 

!3 4 5p0 (not defined for ranks greater than 2). 

07: INDEX ERROR 

Index out of range. For example, if A is a three-element 
vector: AZ^I in 1-origin, ;4[3] in zero origin, or AE0] in 1 
origin. To find the current origin, display UIO . 

8 : LIMIT ERROR 

The operation exceeds limitations of the computer or the AJPL 
system. Limit errors can result from: attempts to generate a 
result greater in magnitude than about 1E322, attempts to execute 
a line longer than 150 characters (in a function, arguments to 
the execute function, or entered as input) , or attempts to 
produce an array having a rank greater than 75. 

09: LOCKED OBJECT 

Attempt to specify a value for a locked variable (label or 
group) . Locked variables can be redefined only by erasing them 
and then specifying them. 

10: WS FULL 

Insufficient space remains in the workspace for the 
operation. Use )ERASE to erase unneeded functions and variables 
to make more space available, or reset UWA to allov/ a larger 
workspace. Some space can usually be reclaimed by executing a 
niladic branch (e.g., -*■) . If more than one suspension is on the 
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state indicator, use a niladic branch for each, suspension. The 
state indicator can also be cleared by use of o US AVE ' ' (which 
also saves a copy of the workspace)". 

11 : WS NOT FOUND 

Although a file having that name was found, it was not 
recognizable as a workspace. 

1 2 : DEFN ERROR 

Incorrect request in function definition mode. May result 
from providing header information other than the function name 
when reopening the function, use of a function name already in 
use for another global function or variable, or an illegal 
display or line editing request. Another cause is an attempt to 
close definition of a function having an incorrectly formed 
header or duplication of names used in the header or as labels. 

13: PHRASE NOT FOUND 

The phrase specified was not found in the line where it was 
sought. Be sure to specify the correct line number. Display the 
line to determine the correct phrase. 

14: SI DAMAGE 

Information on the state indicator has been lost due to 
changing a pendent function, by altering a function that is 
suspended more than once, or by changing the number or relative 
order of local variables in the header or label variables for a 
suspended function. This message is a warning — no corrective 
action is required. The pendent or suspended functions on the 
state indicator that are affected by ST DAMAGE are indicated by 
enclosing brackets. The affected functions cannot be continued, 
but they remain on the state indicator as long as other 
suspensions are above them. When the state indicator collapses 
to the affected suspension, the system automatically removes that 
suspension. 

15: NAME NOT FOUND 

No function or variable having that name exists. 

1 6 : NAME IN USE 

A function or variable already has that name. 

17: PROTECTED WORKSPACE 

An attempt was made to save or copy from a sealed workspace, 
or an error in a sealed workspace was about to give control to 
the user. 

18: MIXED FUNCTION 

A mixed function has been used where a dyadic scalar 
function is required as an argument to an operator. For examples 

A+.xB, Ao.xB, ty/B, 

19: UNDEFINED FUNCTION 

No such primitive function exists. For example: aB , *B (no 
monadic * function) . 
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20: operating system error message 

This message is a message from the operating system and 
usually concerns some sort of operation with a file or with a 
workspace. See the list of common errors under OPERATING SYSTEM 
ERROR MESSAGES below. 

21: FILE DAMAGE 

Usually indicates that one record of the file has been 
damaged. If an attempt to tie the file causes this message , the 
entire file may have been damaged. Most installations 
periodically copy all files to tape, and files can be restored to 
their condition when the last copy was made. Contact 
installation personnel for assistance. File damage may be 
reported erroneously when reading a direct access file in rm mode 
if repeated interference is encountered from another user writing 
the same record. 

2 2 : WRONG TYPE FILE 

An attempt was made to use CFREAD, CFPQS, CSVBMIT, or 
CFWRITE on an APL- structured file, or an attempt was made to use 
FREAD or FWRITE on a coded file. Note that the operating system 
COPY commands do not preserve the type with a copy made from an 
APL- structured file. This error also results from an attempt to 
submit a direct access file using CSUBMIT. 

23: FILE TIE ERROR 

An attempt was made to use a file number or file name that 
was already in use, or an attempt was made to perform an 
operation (e.g., FREAD, FWRITE) that requires the file to be 
tied. 

24: CHANGE TO READ-ONLY FILE 

An attempt has been made to alter a file that was tied in R 
or RM mode. 



OPERATING SYSTEM ERROR MESSAGES 

The following list includes those operating system errors 
that the APL user is most likely to see. The timesharing manual 
or volume 1 of the operating system reference manual may provide 
further details and additional messages that are not included 
here, and may reflect recent changes. 

20: filename BUSY 

The specified direct access file is tied by another user in 
an incompatible mode. This may be caused by a system problem or 
telephone disconnect, in which case the file will be released in 
10 minutes or can be accessed by using the operating system 
RECOVER command to resume the session that terminated abnormally. 
Occasionally a file will be left busy due to an operating system 



A -4 60454000 A 



error and will remain busy until a level zero deadstart (usually 
done at the start of the day) . An APL-structured direct access 
file can usually be retrieved from this condition by using EM 
mode to make a new copy of the file. 

20: filename ALREADY PERMANENT 

A file having the indicated name already exists. This error 
may result if a workspace is being saved and a password, 
category, mode, file type (i.e., IA or DA) , or a name different 
from UWSID was specified. This error can also occur when 
FCREATE attempts to create a direct access file having the same 
name as a file already in existence or when FUNTIE attempts to 
store a copy of an indirect access file that was created during 
the session. If the old file is no longer needed, use UDROP to 
eliminate it; otherwise, copy the new file to change its name. 

20: filename NOT FOUND 

The file does not exist under the specified user number, 
the user is not allowed to access the file, or the user did not 
provide a correct password for a file requiring a password. 

20 : ILLEGAL USER ACCESS 

The user is either not allowed to create direct access files 
or is not allowed to create indirect access files. 

20 : PF UTILITY ACTIVE 

The computer operations staff is using a permanent file 
utility program that prevents users from performing operations 
involving permanent files. Try the operation again. 

20 : CATALOG OVERFLOW - SIZE 

The operation would cause the user's limit on total size of 
all indirect access files to be exceeded. 

20: CATALOG OVERFLOW - FILES 

The operation would exceed the limit on the number of files 
allowed for the account number. 

20 : BAD FILE OR SUBMIT NOT ALLOWED 

This error results from use of CSUBMIT under the following 
circumstances: the user is not validated to use the SUBMIT 
facility, the file is not properly constructed, or the number of 
jobs allowed for the user would be exceeded. 

20 : PARITY ERROR 
20: ADDRESS ERROR 
20: DEVICE STATUS ERR. 
20: 6681 FUNCTION RE J . 
20 : DEVICE RESERVED 
20 : DEVICE NOT READY 

Any of these messages indicates a malfunction in the 
computer or a storage device. Try the operation again, and if 
the problem persists, notify installation personnel. 
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20: TRACK LIMIT 

There is no space available on the device where the file 
resides. Be sure you have not accidentally created a gigantic 
file. If you use very large files, you may need to make special 
arrangements with the installation personnel. 

20: FILE TOO LONG 

The indirect access file or workspace cannot be saved 
because it would exceed the user's size limit for indirect access 
files, or the direct access file being tied or the direct access 
stored workspace being re-saved presently occupies more space 
than the user's size limit for direct access files. 



ABNORMAL EXITS FROM API. 

PARAMETER ERROR 

This error indicates the APL command was incorrect in form 
or that a parameter was specified incorrectly. 

TIME LIMIT 

A *TIME LIMIT* occurred and the T, number command was not 
used to continue processing (see Section 13) . 

SRU LIMIT 

An *SRU LIMIT* error occurred and the S r number command was 
not used to continue processing (see Section 13) . 

PP ABORT 

A peripheral processing unit requested that the program be 
terminated. 

OPERATOR DROP 

The computer operator intervened and terminated the program. 

FILE LIMIT 

More active files were used than are allowed by the user's 
validation limits. 

SYSTEM ABORT 
SUBSYSTEM ABORT 
OVERIDE CONDITION 
PARITY ERROR 
FORCED ERROR 

Any of these indicates a computer or operating system 
malfunction. Contact the system analyst. 

APL SYSTEM ERROR (or EXCHANGE PACKAGE) 

This indicates a defect in the APL system or a computer or 
operating system malfunction. Please report this error to 
installation personnel along with work that led to the problem 
and any further output from the APL system. Unlike most error 
messages, this is not an indication of an error by the APL 
programmer . 
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OTHER MESSAGES 

*DEL* 

This indicates that the input line was cancelled. 

*OVL* 

This indicates that the preceding input line was too long 
for the operating system. 

*TIME LIMIT* 

This indicates that the user reached a limit on allowed 
consumption of computer resources. See the T, number command in 
Section 13. 

*SRU LIMIT* 

This indicates that the user reached a limit on allowed 
consumption of System Resource Units (SRUs) . See the S, number 
command in Section 13. 
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Appendix B. Output Format 

Character output is sent to a terminal unaltered except for 
character translation required for the particular type of 
terminal and omission of trailing blanks in rows of a matrix. 
This omission of trailing blanks in character output speeds the 
printing of the result from UCR, the printing of tables of 
names, and so forth. 

Numeric output is ordinarily shown in decimal form unless 
decimal form would not be sufficiently compact. When decimal 
form is used, up to Qpp significant digits are shown, but 
trailing zeros beyond the decimal point are omitted, as is the 
decimal point itself if no digits follow. Numbers with a 
magnitude less than 1 are shown with a zero before the decimal 
point (e.g., 0.025, 0.126). All numbers in a column have their 
decimal points aligned. 

Exponential form is used if decimal form would require more 
than 3 zeros after the decimal point before the first significant 
digit, if aligning decimal points in the column would require 
more than l . SxQPP character positions, or if more than Qpp 
digits would appear to the left of the decimal point. If any 
number in a column requires exponential format, the entire column 
is shown in exponential format with the decimal points and 
exponents aligned. All numbers in the column are shown with the 
same number of digits in the mantissa. The number of mantissa 
digits is less than UPP according to how many trailing zeros 
would otherwise appear in all numbers in the column. If no 
numbers in the column have digits beyond the decimal point, the 
decimal point is omitted. 

Numbers in adjacent columns are separated by at least one 
space. However, no more spaces than necessary are used. 
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Appendix C. Character Sets and Terminals 

This section discusses character sets and terminal types 
from the point of view of installations using NAM/IAF (Network 
Access Method/Interactive Facility) for communication with 
terminals. Appendix F contains further information and 
exceptions that apply to terminals at installations that do not 
use HAM/IAF. 

Many different types of terminals can be used with the APL 
system. In addition, card readers, printers, and files can be 
used for input and output. The characters available on these 
various devices are shown in Table C-2. Many of these devices 
cannot print the full set of APL characters. APL characters are 
translated so as to print the same whenever possible. When no 
related symbol is available, the symbol is represented as a 
dollar sign followed by two mnemonic symbols (e.g., $10 for i and 
$R0 for p). For input, if the symbols following the dollar sign 
are not recognized as one of these mnemonics, the dollar sign is 
entered as a dollar sign. In Table C-2 where two characters 
appear in the same column, either character may be used for 
input, but all output uses the second character. Note that the 
APL system assumes the same terminal type for input and output. 
Where there is a blank entry in the table, the "bad character 
symbol," DAJ r [.220], is used. Note that the UAV indices are for 
0-origin. The column for APL coded files includes the octal 
(base 8) values used. The print symbols shown for coded files 
assume an ASCII printer will be used; a few symbols print 
differently on other printers. Note that future versions of the 
APL 2 system may be changed to preserve exact equivalents for all 
ASCII characters. This would affect the TT=BATCH, TT=713, and 
coded file translations. 
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LOG ON CHARACTERS AND TERMINAL CONTROLS 

Most terminals used with computers can be classified as 
either ASCII terminals or Selectric terminals. (Selectric 
terminals are distinguished from ASCII terminals in that 
Selectric terminals are based on an IBM Selectric print 
mechanism, although the terminals themselves are produced by 
several manufacturers.) In addition, the terminal may or may not 
be equipped to print the APL character set. Some terminals can 
easily be switched from the APL character set (e.g. L and D are 
the lower and upper case symbols on the L key) to a "standard" 
character set (e.g. 1 and L are the two symbols on the L key). 
In some cases you select the character set by changing a switch 
setting, while in other cases you select the character set by 
replacing the type element. In either situation, the signal sent 
to the computer when a given key is pressed does not change when 
you switch character sets — only the printed symbol changes. It 
is therefore important that the computer be notified of the 
character set you are using. 

In a normal NAM/IAF log on, you first press RETURN (which 
NAM/IAF uses to determine the data rate of the terminal) , then 
you send ) RETURN. The right parenthesis is used to determine 
the type of terminal (ASCII or Selectric) , whether APL is 
available on the terminal, and what keyboard arrangement or 
transmission codes are used (bit pairing, typewriter pairing, 
Correspondence, or EBCDIC) . If the APL character set is 
available, select the APL character set before sending the right 
parenthesis so that the code for the APL right parenthesis will 
be sent. 

The TT= option on the APL command should be used if the 
terminal does not have the APL character set. In addition, for 
APL Selectric terminals, TT=COR may be used if overstrikes are 

desired for the symbols {}$0 I 1. For most non-APL terminals 

the TT=713 option is recommended. 

Note that visual fidelity is not preserved for non-APL 
terminals. Non-APL terminals are not recommended for program 
development, although they may be satisfactory for entering data 
or transactions. 

Table C-l shows the appropriate TT= option for each terminal 
type, as well as the terminal controls normally used to cancel 
lines, correct input, or interrupt a program. In this table, a 
circle around a letter means the CTRLkey should be held down 
while typing the letter. For example, Qy means CTRL X. 
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TABLE C-l. Terminal Controls and Options. 



ASCII with 
APL print 


ASCII 


Selectric with 
APL print 


Selectric 


TT= option 


none 


TT=713 


TT=COR 
Coptional) 


TT=713 


Cancel line 


(x) RETURN 


(x) RETURN 


BACKSPACE to 
begin of line, 
ATTN 


BACKSPACE to 
begin of line, 
ATTN 


Correct line 


BACKSPACES 
LINE FEED 


BACKSPACES 
Cor ® ) 
LINE FEED 


BACKSPACES 
ATTN 


BACKSPACES 
ATTN 


Interrupt 

while 

executing 


(p) RETURN 


(?) RETURN 


ATTN: RETURN 


ATTN: RETURN 


Stop D input 


->■ 


$G0 


-»■ 


$G0 


Stop E input 


EJ 


$G. 


W 


$G. 



Most of the NAM/IAF controls shown in Table C-l are system 
default controls; they are the same as you would usually use 
with another language. In addition, the APL system requests 
special editing mode (which allows APL to use overstrikes, 
partial line correction with a caret prompt, and the full 
character set) , and selects a NAM/IAF printing width of (which 
prevents NAM/IAF from dividing lines of input and output 
according to the printing width of the terminal). These special 
selections made by the APL system are equivalent to the effect of 
the following NAM/IAF commands typed at a terminal: 



ESC SE=Y RETURN 
ESC PW=0 RETURN 



(To request special editing . ) 
(For no print width processing. ) 



These commands to NAM/IAF are recognized only if they occur at 
the beginning of a keyboard entry. Spaces are shown above for 
the sake of clarity, but no spaces should actually be entered. 
When the APL session ends, APL requests no special editing. This 
is equivalent to the following request from a terminal: 

ESC SE=N RETURN 

However, NAM/IAF printing width- remains 0. To reset the printing 
width, type a command like the following: 

ESC PW=132 RETURN (To set the width to 132.) 
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These examples, as well as Table C-l, are based on the 
default NAM/IAP terminal controls. However, NAM/IAF allows you 
to designate other characters to be used in place of the special 
control characters.* Substitutions might be desirable when using 
a special device on which the default controls are not available 
or are reserved for a special purpose. Further details can be 
found in manuals describing NAM/IAF. 

SPECIFYING NAM/IAF CHARACTER SET 

During the normal log on procedure with the computer 
connection through telephone lines, the first characters from the 
terminal allow the system to detect the data rate and character 
set in use. When the terminal is directly wired to the computer 
the data rate and character set may be predetermined. If you 
wish to change the character set of the terminal (e.g., to use 
another language) you should identify the new character set to 
the system as follows: 

ESC CD=A RETURN (Typed using the old character set.) 

The system responds with two line feeds. You should then switch 
to the new character set and type: 

) RETURN 

SPECIAL CHARACTERS 

The character formed by overstriking C and R causes a 
carrier return (without a line feed) on an ASCII terminal. For 
Selectric terminals, no exact equivalent exists, so a carrier 
return with line feed occurs. The symbol formed by overstriking 
U and S results in a carrier return and line feed for all 
terminal types. (For output to coded files, U over S also causes 
a new line. ) The line feed itself is also available and is 
represented by overstriking L and F. 

Note that earlier versions of the APL system used the CH 
overstrike to mean carrier return with line feed. The symbol 
formerly entered as C over R is now printed as U over S, 
regardless of whether it was in a program or data. The CR 
overstrike remains at EW7[13 3 (in origin) as a result of 
rearrangement of 04 7. However, the effect of CWy[13] has changed 
for some terminal types and for output to coded files. 

STANDARD SWITCH SETTINGS 

The following information is intended as a general 
discussion on choosing switch settings for terminals. Because of 
the many variations between terminals and the various conventions 
adopted by installations, these suggestions can only serve as a 

*The cancel line character should not be changed, because APL 
will only recognize ® for cancel line. 
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general guide. Further information can be obtained from 
personnel at the computer installation or from the instruction 
manual provided by the manufacturer of the terminal. 

LINE/LOCAL switch . LOCAL mode prevents signals from being sent 
to the computer. The LINE position should be used. 

CAPS LOCK . This key on ASCII terminals causes the codes for 
upper case letters to be sent even if the shift key is not used. 
This option should not be used for APL terminals. 

DATA RATE . Standard rates usually available are 110 BAUD (.10 

cps) and 300 BAUD (30 cps) for ASCII terminals and 135 BAUD for 

Selectric terminals. Much higher data rates are sometimes 
available. 

Character set . Some terminals have a switch to select the 
character set. The APL setting may be marked APL or ALT CHAR 
SET. On some terminals resetting the character set key has no 
immediate effect unless the character set lock key is also 
depressed. 

Parity . Even parity is standard at most installations. 

FDX/HDX . In full duplex mode (FDX) , characters sent by the 
terminal are echoed back by the communications processer. The 
terminal prints the character as a result of receiving it from 
the system. This mode helps you to determine whether the 
transmission was received correctly. In half duplex mode, the 
terminal always prints the characters as the keys are pressed, 
and the system does not echo the characters as they are received. 
The terminal and system must both use the same mode or else 
characters will be printed twice (or will be garbled) , or they 
will not print at all. You should determine (possibly by 
experimentation) the standard mode (usually HDX) for the 
installation. (If the acoustic coupler has a similar switch, use 
the full duplex selection, regardless of the convention between 
the terminal and the system. ) 
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Table C-2. APL Character Set. 



APL 
UAV Symbol 

Index (Overs tr ike) 



ASCII 

Symbol TT=713 

(Name) Symbol 



BATCH 
Printer 



B501 
Printer 



APL 
Coded 
Files 






S (NU) 


\ (NUL) 


$NU 


$NU 


$NU 




1 


B (SH) 


i (SOH) 


$SH 


$SH 


$SH 




2 


3 (ST) 


(STX) 


$ST 


$ST 


$ST 




3 


g (ET) 


CETX) 


$ET 


$ET 


$ET 




4 


B (EO) 


(EOT) 


$EO 


$EO 


$EO 




5 


B (EN) 


(ENQJ 


$EN 


$EN 


$EN 




6 


K (AK) 


(ACK) 


$AK 


$AK 


$AK 




7 


B (BL) 


(BEL) 


$BL 


$BL 


$BL 




8 


3 (BJ) 


(BS) 


$BJ 


$BJ 


$BJ 




9 


S (HT) 


(HT) 


$HT 


$HT 


$HT 




10 


E (LF) 


CLP) 


$LF 


$LF 


$LF 




11 


¥ (VT) 


(VT) 


$VT 


$VT 


$VT 




12 


B (FD) 


(FF) 


$FD 


$FD 


$FD 




13 


E (CR) 


(CR) 


$CR 


$CR 


$CR 




14 


B (SO) 


(SO) 


$SO - 


$SO 


$SO 




15 


$ (SI) 


(SI) 


$SI 


$SI 


$SI 




16 


B (DE) 


(DLE) 


$DE 


$DE 


$DE 




17 


J? (Dl) 


(DC1) 


$D1 


$D1 


$D1 




18 


J2 (D2) 


(DC2) 


$D2 


$D2 


$D2 




19 


B (D3) 


(DC3) 


$D3 


$D3 


$D3 




20 


3 (D^) 


(DC4) 


$D4 


$D4 


$D4 




21 


K (NK) 


CNAK) 


$NK 


$NK 


$NK 




22 


S (SY) 


(SYN) 


$SY 


$SY 


$SY 




23 


B (EB) 


(ETB) 


$EB 


$EB 


$EB 




24 


8 (CA) 


(CAN) 


$CA 


$CA 


$CA 




25 


B (EM) 


(EM) 


$EM 


$EM 


$EM 




26 


B (SB) 


(SUB) 


$SB 


$SB 


$SB 




27 


B (ES) 


(ESC) 


$ES 


$ES 


$ES 




28 


E (FS) 


(FS) 


$FS 


$FS 


$FS 




29 


(GS) 


(GS) 


$GS 


$GS 


$GS 




30 


B (RS) 


(RS) 


$RS 


$RS 


$RS 




31 


3 (US) 


CUS) 


$US 


$US 


$US 




32 


blank 


blank 


blank 


blank 


blank 


blank (55B) 


33 


I ('.) 


i 

• 


$EX * 


$EX ! 


$EX 


I (66B) 


* 34 


V C) 


II 


$DQ 


$DQ 


$DQ 




* 35 


* (+-) 


# 


$PD 


$PD 


$PD 




36 


ir (si) 


$ 


$ 


$ 


$ 


$(53B) 


* 37 


/ (/:) 


% 


$PR 


$PR 


$PR 




* 38 


S (8\) 


& 


$AM 


$AM 


$AM 




39 


i 


i 


$QT » 


$QT ' 


$QT 


' (70B) 


40 


( 


( 


( 


( 


C 


((51B) 


41 


) 


) 


) 


) 


) 


) (52B) 


42 


* 


* 


* 


* 


* 


*(47B) 


43 


+ 


+ 


+ 


+ 


+ 


+(45B) 


44 


9 


/ 


i 


w 


t 


, (56B) 


45 




, ■ 








-C46B) 

s 
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Table C-: 


2. APL Character 


Set, Continued. 






APL 


ASCII 








APL 


UAV 


Symbol 


Symbol 


TT=713 


BATCH 


B501 


Coded 


Index 


(Overstrike] 


1 (Name) 


Symbol 


Printer 


Printer 


Files 


46 


• 


• 


• 


• 


• 


. (57B) 


47 


/ 


/ 


/ 


/ 


/ 


/(50B) 


48 

















0(33B) 


49 


1 


1 


1 


1 


1 


1(34B) 


50 


2 


2 


2 


2 


2 


2(35B) 


51 


3 


3 


3 


3 


3 


3(36B) 


52 


4 


4 


4 


4 


4 


4(37B) 


53 


5 


5 


5 


5 


5 


5(40B) 


54 


6 


6 


6 


6 


6 


6(41B) 


55 


7 


7 


7 


7 


7 


7(42B) 


56 


8 


8 


8 


8 


8 


8(43B) 


57 


9 


9 


9 


9 


9 


9(44B) 


58 


: 


• 
• 


$CL : 


$CL : 


$CL : 


: (00B) 


59 


3 


• 


$SC ; 


$SC ? 


$SC ; 


; (77B) 


60 


< 


< 


$LT < 


$LT < 


$LT < 


<(72B) 


61 


= 


= 


$EQ = 


$EQ = 


$EQ = 


= (54B) 


62 


> 


> 


$GT > 


$GT > 


$GT > 


>(73B) 


63 


? 


? 


$QU ? 


$QU ? 


$QU ? 


?(71B) 


* 64 


e (Co) 


@ 


$AT 


$AT 


$AT 




65 


A 


A 


A 


A 


A 


A(01B) 


66 


B 


B 


B 


B 


B 


B(02B) 


67 


C 


C 


C 


C 


C 


C(03B) 


68 


D 


D 


D 


D 


D 


D(04B) 


69 


E 


E 


E 


E 


E 


E(05B) 


70 


F 


F 


P 


P 


F 


F(06B) 


71 


G 


G 


G 


G 


G 


G(07B) 


72 


B 


H 


H 


H 


H 


H(10B) 


73 


I 


I 


I 


I 


I 


I (HB) 


74 


J 


J 


J 


J 


J 


J(12B) 


75 


K 


K 


K 


K 


K 


K(13B) 


76 


L 


L 


L 


L 


L 


LC14B) 


77 


M 


M 


M 


M 


M 


MC15B) 


78 


N 


N 


N 


N 


N 


N(16B) 


79 

















0(17B) 


80 


P 


P 


P 


P 


P 


P(20B) 


81 


Q 


Q 


Q 


Q 


Q 


Q(21B) 


82 


R 


R 


R 


R 


R 


R(22B) 


83 


S 


S 


S 


S 


S 


S(23B) 


84 


T 


T 


T 


T 


T 


T(24B) 


85 


U 


U 


U 


U 


U 


U(25B) 


86 


V 


V 


V 


V 


V 


V(26B) 


87 


W 


w 


W 


W 


w 


W(27B) 


88 


X 


X 


X 


X 


X 


XC30B) 


89 


Y 


Y 


Y 


Y 


Y 


Y(31B) 


90 


Z 


Z 


Z 


Z 


Z 


Z(32B) 






1 


, 
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Table C-2. APL Character Set, Continued. 



APL 
UAV Symbol 

Index (Over strike) 



ASCII 

Symbol TT=713 

(Name) Symbol 



BATCH B501 
Printer Printer 



APL 
Coded 
Piles 



91 


[ 


c 


$OB C 


$OB C 


$OB C 


[ C61B) 


92 


\ 


\ 


$BS \ 


$BS 


$BS 


\ (75B) 


93 


] 


: 


$CB 3 


$CB ] 


$CB D 


3 C62B) 


* 94 


* ("") 


-^s. 


$CX 


$cx 


$CX 




* 95 






$UL 


$UL 


$UL 


_(65B) 


* 96 


f (»") 


* 


$AC 


$AC 


$AC 




97 


A U ) 


a 


$AA 


$AA 


$AA 


A(OIB) 


98 


B (B_) 


b 


$BB 


$BB 


$BB 


B(02B) 


99 


c (C_) 


c 


$CC 


$CC 


$CC 


CC03B) 


100 


D (D ) 


d 


$DD 


$DD 


$DD 


DC04B) 


101 


E (E_) 


e 


$EE 


$EE 


$EE 


EC05B) 


102 


F (F ) 


f 


$PF 


$PF 


$FP 


FC06B) 


103 


G (G_) 


g 


$GG 


$GG 


$GG 


GC07B) 


104 


E (#_) 


h 


$HH 


$HH 


$HH 


H(10B) 


105 


I (I ) 


i 


$11 


$11 


$11 


I CUB) 


106 


J U_) 




$JJ 


$JJ 


$JJ 


J (12B) 


107 


K (K_) 


k 


$KK 


$KK 


$KK 


K(13B) 


108 


L (£_) 


1 


$LL 


$LL 


$LL 


LC14B) 


109 


M (M_) 


m 


$MM 


$MM 


$MM 


M C15B) 


110 


N (N_) 


n 


$NN 


$NN 


$NN 


NC16B) 


111 


(0_) 


o 


$00 


$00 


$00 


0(17B) 


112 


P (P ) 


p 


$PP 


$PP 


$PP 


P(20B) 


113 


Q (Q-) 


q 


$QQ 


$QQ 


$QQ 


Q(21B) 


114 


R (i? ) 


r 


$RR 


$RR 


$RR 


RC22B) 


115 


S (S ) 


s 


$SS 


$SS 


$SS 


SC23B) 


116 


T (T_) 


t 


$TT 


$TT 


$TT 


TC24B) 


117 


U (J/^.) 


u 


$UU 


$UU 


$UU 


UC25B) 


118 


y (y .) 


V 


$W 


$W 


$W 


VC26B) 


119 


. K CF_) 


w 


$WW 


$ww 


$WW 


W(27B) 


120 


I U ) 


X 


$XX 


$xx 


$XX 


X(30B) 


121 


X (T- ) 


y 


$YY 


$YY 


$YY 


Y(31B) 


122 


Z (Z ) 


z 


$ZZ 


$zz 


$ZZ 


Z(32B) 


* 123 


7 (c°) 


{ 


$LB 


$LB 


$LB 




124 


j 


1 
1 


$MD 


$MD 


$MD 




* 125 


} (]°) 


} 


$RB 


$BB 


$RB 




* 126 


CN/ 


/v 


$TL 


$TL * 


$TL^ 


/\ C76B) 


127 


^ (i?Z) 


CDEL) 


$DZ 


$DZ 


$DZ 




128 




CK0) 










129 




CKD 










130 




(K2) 










131 




CK3) 










132 




CK4) 










133 




(K5) 










134 




(K6) 










135 




CK7) 
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Ta"ble C-2. APL Character Set, Continued. 

APL ASCII APL 

Symbol Symbol TT=71 3 BATCH B501 Coded 

(Overstrike) (Name) Symbol Printer Printer Files 



136 




(K8) 










137 




(K9) 










138 




(K10) 










139 




(K11) 










140 




(K12) 










141 




(K13) 
(K14 










142 












143 




K15 










144 




(K16) 










145 




(K17) 










146 




(K18) 










147 




K19) 










148 




(K20) 










149 




(K21 ) 










150 




(K22) 










151 




(K23) 










152 




(K24) 










153 




(K25) 










154 




(K26) 










155 




(K27) 










156 




(K28) 










157 




(K29) 










158 




(K30) 










159 




(K31) 










160 


A 


(NO) 


SAN 


SAN 


SAN a 




161 


V 


(N1) 


$0R 


SOR 


SOR v 




162 


* (A~) 


(N2) 


$ND 


$ND 


SND 




163 


V (V~) 


0*3) 


$NR 


SNR 


SNR 




164 


< 


(N4) 


$LE 


SLE 


$LE < 




165 


# 


N5 


SNE 


SNE 


SNE * 




166 


> 


(N6) 


$GE 


SGE 


SGE > 




167 


4 (A| ) 


(N7) 


$UG 


SUG 


SUG 




168 


? 


(N8) 


$DG 


SDG 


SDG 




** 169 


t 


(N9) 


$TA 


ST A 


STA t 




170 


+ 


(N10) 


$DR 


SDR 


SDR + 




** 171 


•«- 


(N11 ) 


SIS 


SIS 


SIS 




172 


->■ 


(N12) 


SGO 


SGO 


SGO -> 




173 


ft (no) 


(N13) 


$LP 


SLP 


SLP 




174 


¥ (V~) 


(N14) 


$LD 


SLD 


SLD 




175 


V 


(N15) 


SDL 


SDL 


SDL 




176 


L 


(N16) 


$MN 


SMN 






177 


r 


(N17) 


$MX 


SMX 






** 1 78 


X 


(N18 


SML 


SML 


SML 


&(67B) 
M63B) 


** 179 


V 


(N19) 


$DV 


SDV 


SDV 


** 180 


" 


(N20) 


$DI 


SDI 


SDI 


" (64B) 
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Table C-2. APL Character Set, Continued. 

APL ASCII 

UAV Symbol Symbol TT=71 3 BATCH B501 

Index (Overstrike) (Name) Symbol Printer Printer 



APL 
Coded 
Piles 



** 181 


1 


(N21 ) 


$NG 


$NG 


SNG 


#(60B) 


182 


A 


(N22) 


$DT 


SDT 


$DT 




183 


H (<-| ) 


(N23 
(N24) 


$RK 


SRK 


$RK 




184 


I- (-H ) 


$IK 


SLK 


$LK 




185 


o 


(N25) 


SCI 


SCI 


SCI 




** 186 


® ( o*) 


(N26) 
(N27) 


$LG 


SLG 


SLG 


@(74B) 


187 


e (o-) 


$RU 


SRU 


SRU 




188 


<f> (o| ) 


(N28) 
(N29) 


$RT 


$RT 


SRT 




189 


$ (o\) 


$TP 


STP 


STP 




190 


O (AV) 


(N30) 


$DM 


SDM 


SDM 




191 


A (A_) 


(N31) 


$DU 


SDU 


SDU 




192 


i 


(N32) 


$10 


$10 


$10 




193 


P 


(N33) 


$R0 


SRO 


SRO 




194 


l 


(N34) 


$BV 


SBV 


$BV 




195 


T 


(N35) 


$RP 


$RP 


$RP 




196 


I (IT) 


N36 


$IB 


$IB 


SIB 




197 


c 


(N37) 


SID 


$ID 


SID 




198 


o 


(N38) 


SIN 


SIN 


SIN 




199 


n 


N39 
(N40) 


SIX 


SIX 


SIX 




200 


u 


SUN 


SUN 


SUN 




201 


o 


(N41 ) 
(N42) 


SNL 


SNL 


SNL 




202 


D 


SQD 


SQD 


SQD 




203 
204 


□ (DM 
\ (\-) 


m\ 


$QP 
$BT 


$9 P 
$BT 


$QP 
SBT 




205 


/ (/-) 


(N45) 


SSM 


$SM 


SSM 




206 




(N46) 










207 


1 (DO 


(N47) 


$XD 


$XD 


SXD 




208 


CO 


(N48) 


SOM 


SOM 


SOM 




209 


a 


(N49) 


SAL 


SAL 


SAL 




210 




(N50) 










211 




(N51) 










212 




N52) 
(N53) 










213 


€ 


SEP 


SEP 


SEP 




214 


t (±°) 


(N54) 


SEV 


SEV 


SEV 




215 


▼ (To) 


N55 


SPM 


SPM 


SPM 




216 


1 (",) 


(N56) 


SCN 


SCN 


SCN 




217 




(N57) 










218 




(N58) 










219 




(N59) 










220 


a (va) 


(N60) 


SBC 


SBC 


SBC 




221 




(N61) 










222 




(N62) 










223 




(N63) 










224 


V {OUT) 


(GO) 


$G. 


$G> 


$G> 




225 


(OU) 


(G1) 


SOU 


SOU 


$0U 
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Table C-2. APL Character Set, Continued. 



APL 
UAV Symbol 

Index (Overstrike) 



ASCII APL 

Symbol TT=71 3 BATCH B501 Coded 
(Name) Symbol Printer Printer Files 



226 




(G2) 










227 




(G3) 










228 




(G4) 










229 




G5) 










230 




(06) 










231 




(07) 










232 




(QB) 










233 




(G9) 










234 




(G10) 










235 




G11) 










236 




G12) 










237 




(CM 3) 










238 




G14 










239 




(CM 5) 










240 




(G16 










241 




G17) 










242 




(G18) 










243 




(G19) 










244 




(G20) 










245 




(G21) 










246 




(G22) 










247 




(G23) 










248 




(G24) 










249 




(G25) 










250 




G26 










251 




(G27) 










252 




(G28) 










253 




(G29) 










254 




(G30) 










255 




(EO) 











** 



Future versions of APL may change the APL coded file 
conversions to use the ASCII graphic symbol to represent the 
ASCII character. 

Future versions of APL may change the APL coded file 
conversions to allow only the $ mnemonic to enter or print 
these characters. 
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Appendix D. APL Control Card 



The optional parameters on the APL timesharing command (or 
batch control card) allow specification of the type of terminal 
(or batch options) to be used, the workspace to be used (thus 
avoiding a subsequent LOAD command) , and the constraints on the 
field length to be used. The general form for the control card 
is: 

APL, option, option, option , ... 

where an option is of the form keyword or keyword=value . 

Indicating terminal type. When no terminal type is specified, 
APL assumes TT=ASCAPL as the terminal type if the job was entered 
from timesharing. (This default may be changed by the 
installation.) If the job is a batch or remote batch job, APL 
assumes the TT=BATCH option. See Appendix C or Appendix P fox- 
specific recommendations. Other terminal types can be specified 
as follows : 

TT=COR Correspondence Selectric APL terminal (DTT=ll. 
This option assumes the communications system 
recognizes the terminal as an APL terminal. 

TT=TYPE Typewriter-paired APL terminals tUTT=2\. This is 
applicable only if the communications system does 
not recognize the terminal as an APL terminal. 

TT=BIT Bit-paired APL terminal tUTT=3) . This is 

applicable only if the communications system does 
not recognize the terminal as an APL terminal. 

TT=ASCAPL This type (DT2 , =4) is appropriate when the 
communications system translates APL terminal 
codes into a standard intermediate code. 
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TT=TTY33 For Teletype 33 terminal or similar devices 
(UTT=5). TT=713 is recommended instead for most 
other ASCII terminals. 

TT=ASCII For full ASCII terminals not equipped to print the 
APL character set (UTT=6) . This may also be used 
for non-APL correspondence terminals, but TT=713 
is recommended instead. 

TT=BATCH For devices that support the ASCII 64-character 
set (UTT=7) . Usually used for batch or remote 
batch ASCII printers. i 

TT=B501 For batch 501 printer IQTT=Q). 

TT=TTY383 For certain Teletype 38 models {DTT=9) . See 

Appendix F. 

TT=713 For full ASCII terminals or correspondence 
terminals not having the APL character set. 
Avoids frequent use of shift key for letters. 
E.g. either T or t may be entered for the APL 
letter 2*. 



Indicating batch Output options . The following options are 
xn tended primarily for batch users of APL. If the APL control 
card does not specify output options, it is assumed that 
timesharing users do not wish these options and that batch users 
do want them. 

LO=EPB Any or all of the options E, P, or B may be 
specified. Any options not specified are not used. 



E 



Echo input. The APL lines read as input are also 
sent as output. 

P Prohibit prompt. The normal APL input prompts (6 
spaces or D: plus transparent mode control bytes, a 
lack of which may cause the input translation for 
terminals to be incorrect) are not sent to the 
output file. 

B Blank in first column. Causes a blank to be added 
to the front of each output line to prevent the 
first character from being used for printer carriage 
control . 

LO=0 To select none of the E, P, or B options. 

Input and output file specification . The input and output files 
normally used for APL are named INPUT and OUTPUT. For 
timesharing jobs this causes input to come from the terminal and 
output to be sent to the terminal. For batch jobs input 
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ordinarily is from the card deck, or CSUBMIT file f and output is 
to a line printer. Other operating system files can be used 
instead. APL translation of input and output is according to the 
TT= option Cor the default which depends on whether the job is 
batch type or timesharing type) . 

I=f He-name Causes input to be read from the named file. 

U=f He-name Causes output to go to the named file. 

L=0 No APL output is produced. (All output is 

discarded. ) 

Initial workspace specification . If no workspace is specified, a 
clear workspace is used. Some effort can be saved by specifying 
the initial workspace name on the APL control card. 

W>=wsname APL operations begin with a copy of the named 

workspace as the active workspace. 

UN=user-number Used to specify the user number of the 

initial workspace. Required only if the user 
number of the workspace differs from that 
used when signing on. 

PW=passwd if the workspace belongs to another user and 

has a password, the password must be provided 
in order to use it. 

Field length specification . The field length used by APL 
includes the central memory used for the APL system and the 
active workspace. The user is not allowed to specify a field 
length greater than that permitted by validation limits 
associated with the user name, or greater than the limit imposed 
by the computer operator. If no field length is specified, the 
APL system chooses a minimum field length that depends on the 
current version of APL, and a maximum field length of 24576 words 
(60000 octal) or the maximum allowed, whichever is less. The 
field length is used for the APL system and the active 
workspace. The actual field length used varies dynamically. If 
storage requirements exceed the maximum field length, a WS FULL 
message results. 

MX=number Sets the maximum field length. The number is 
assumed to be in decimal form unless followed 
immediately by B, in which case it is interpreted 
as octal. The value is actually rounded up to a 
multiple of 64. 

IW^number Sets the minimum field length. The number is 
assumed to be in decimal form unless followed 
immediately by B, in which case it is interpreted 
as octal. The value is actually rounded up to a 
multiple of 64. 
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Suppressing banner. The NH keyword (for no heading) may be used 
on the APL control card to prevent the APL system from printing 
the usual banner (APL system identification) at the beginning of 
the APL session. 
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Appendix E. Numerical Limits and Precision 

The CYBER computers can represent nonzero numbers having 
magnitudes in the approximate range i.27£3 22 to 3.14£~294. An 
operation that would ordinarily produce a number smaller in 
magnitude than 3 . 14ff~294 actually produces zero. Operations that 
would produce results of magnitude greater than 1.27£3 22 produce 
a DOMAIN ERROR. 

Numbers within this magnitude range are represented with an 
accuracy of about 14 decimal digits (more precisely, to within 1 
part in 2*18). The simple operations such as addition, 
subtraction, multiplication, and division can be expected to be 
accurate to within 1 part in 2*48 except when cancellation 
magnifies the errors. However, operations involving numbers that 
are integers or powers of 2 give exact results unless the 
magnitudes differ greatly. For example, exact results are given 
by: .5+4, .25-. 125, 8-3. 
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Appendix P. Use of Terminals at Installations without NAM/IAF 

When NAM/IAF is not used for communications with terminals, 
the log on procedure is somewhat more complicated, and the user 
must know more about the type of terminal in use. Also, the 
system does not sense the character rate of the terminal, 
although it determines some information about the terminal class 
from the first characters sent. Furthermore, operating system 
messages printed on the terminal may use the wrong character set. 
For example, *TIME LIMIT* may be printed as *~i|e nili~* — 
instead of letters the upper case symbols on the same keys as the 
letters are printed. 

TERMINAL TYPES 

ASCII terminals that have the APL character set are divided 
into three classes according to which ASCII signals are 
associated with the APL symbols. The most common type is 
typewriter paired; these terminals have the APL symbol for 
multiplication on the same key as the ASCII symbol for equals. 
The second class, bit-paired terminals, have the APL symbol for 
subtraction on the same key as the ASCII symbol for equals. The 
third class, TTY383, applies to Teletype 38 terminals with the 
following model numbers: 3841/4EA, 3841/4EG, 3851/6JA, and 
3 8 51/6 JG. 

ASCII terminals without the APL character set either have 
the full ASCII character set (e.g. both capital and small 
letters) or only the partial character set (e.g. no small 
letters). In either case, the terminal type TT=713 is 
recommended. This translation treats either the capital or small 
letters as the APL letters A to Z and avoids frequent use of the 
shift key. (The TTY33 terminal type is nearly obsolete; the 713 
type is preferable for most terminals other than Teletype 33 
terminals. The ASCII translation allows small letters to be 
distinguished from capital letters, but this capability is 
usually a nuisance since small ASCII letters become underlined 
APL letters. ) 
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Selectric APL terminals use either correspondence 
transmission codes or EBCDIC transmission codes. The EBCDIC 
codes are not ordinarily supported. Correspondence terminals 
that do not print the APL character set can be used with the 
TT=713 terminal type as if they were ASCII terminals. 



log-on procedure; 

The log-on procedure is summarized in Table P-l for the 
various types of terminals. The first step is to establish a 
telephone connection with the computer, as discussed in Section 
1. However, when NAM/IAF with auto baud detect is not used, the 
telephone number may vary according to the type of terminal and 
the data rate to be used. 



Table P-l. Log-on Procedure 











Symbol for 




First 


Change 


TT= 


= when not 


Terminal Type 


transmission 


character set 


option 


in APL 


ASCII typewriter- 










paired APL 


A RETURN 


TERM,TTY 


TYPE 


X 


ASCII bit- 










paired APL 


A RETURN 


TERM,TTY 


BIT 


- 


ASCII TTY383 










APL 


A RETURN 


TERM,TTY 


TTY383 


-. 


Correspondence 










APL 


A ATTN 




COR 


= 


ASCII 










non-APL 


RETURN 




713 


55 


Correspondence 










non-APL 


RETURN 




713 


55 



The initial transmission from the terminal indicates whether 
the terminal has the APL character set. Enter the characters 
shown in Table P-l. Then provide the account family, account 
number, and password as discussed in Section 1. 



F-2 
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When the system prints 
RECOVER /SYSTEM: 
reply with TERM,TTY if Table F-l indicates this command is 



required for your terminal type, 
the appropriate terminal type 
example , 

APL,TT=COR 



Then type the APL command with 
option from Table F-l. For 



would be used to indicate that a correspondence APL terminal is 
in use. For some terminal types, you must use the x symbol or - 
symbol in place of = because the operating system assumes that 
the ASCII symbols are in use. The last column in the table shows 
the character to use instead of = for the APL command and other 
operating system commands. Note that these substitutions must be 
made for commands discussed in Section 13. 



TERMINAL CONTROLS 

Table F-2 shows the terminal controls used to cancel an 
input line, stop a program while executing, and to stop a program 

The 



while requesting input, 
requesting input are for Q input 
procedure to cancel an entire 
terminals requires that 
what was already typed, 
procedure in Table F-2 , 



two entries for halting a program 
and B input, respectively. The 
input line for correspondence 
the type element be positioned beyond 
When you correct input according to the 
the system responds by printing a caret 
under the first character to be replaced. You then type 
replacement characters. For ASCII terminals you can also use the 
LINE FEED key instead of BREAK; this procedure does not print 
the caret prompt, but you do not need to wait for the system to 
respond before providing replacement characters. 



Table F-2. Terminal Controls 



Terminal 
type 


Cancel 

input 


Correct 
input 


Stop 
program 


Stop 
input 


ASCII with 
APL print 


BREAK 


BACKSPACES 
LINE FEED 


BREAK 


W or -> 


Non-APL 
ASCII 


BREAK 


BACKSPACES 
Cor CTRL II ) 
LINE FEED 


BREAK 


$G. or $G0 


APL 
Correspondence 


ATTN 


BACKSPACES 

ATTN 


ATTN 


ff or ->• 


Non-APL 
Correspondence 


ATTN 


BACKSPACES 
ATTN 


ATTN 


$G. or $G0 
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INDEX 



ABORT (UTM request) 18-20 
Absent records 10-8,9 
Absolute value function 4-3 
ABSTRACT documentation 11-2,3 
Access modes for files 10-6; 
10-11; 10-14,15; 13-3,4 
Account number 

for files 10-10 

for logging on 1-2 

from DAI 8-19 
Accounting information {DAI) 

8-7; 8-18,19 
Acoustic coupler 1-1 
Active files 10-5 
Active workspace 8-8; 8-14 
Addition function 4-2 
Additive inverse function 4-2 
ADDRESS ERROR A- 5 
AFIFIX 13-6 
DAI 8-7; 8-18,19 
ALREADY PERMANENT A- 5 
Alternating product 7-2 
Alternating sum 7-2 
AND function 4-3 
APL control card D-1,3 
A PL SYSTEM ERROR A- 6 
APL1 public library 11-1 
APLNEWS workspace 1-3; 11-1 
APL- structured files 10-1 

indicated by FSTATUS 10-9 

integrity of 10-16 
Arc sine, arc cosine, etc. 

4-3; 4-5 
Arguments to functions 1-6; 

2-8; 3-4 
ASCAPL terminal type D-l 
ASCII terminals 1-1,3; C-2,11; 
D-l, 2; F-1,3 



Assignment 1-5; 3-6,7; 5-6. 

See also Indexed 

specification 
Atomic vector {DAV) 8-19; 

C-l , 10 
ATTN key C-3; F-2,3 
UAV 8-19; C-l, 10 
AWSFIX 13-6 
Axis operator 3-5; 6-5; 8-11; 

A-l 

B501 terminal type C-6,11; D-2 
BACKSPACE key 1-4; C-2,3 
Bad character symbol C-l 
BAD FILE OR SUBMIT NOT ALLOWED 

A- 5 
Base value function 6-18,19 
Batch job submission. See 

C SUBMIT 
Batch output options D-l, 4 
Batch printer translation 

C-6,11; D-l, 2 
BATCH terminal type C-6,11; 

D-l, 2 
Batch use of APL D-l, 4 
Beta function 4-5 
Bit-pairing terminals F-1,2; 

D-l 
BIT terminal type F-1,2; D-l 
Blanks 

in commands 3-1 
in output D-2 
Boolean data, see Logical 

representation 
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Branching 2-9; 3-7; 3-9 
and efficiency 12-5 
and execute function 6-20 
and restarting execution 

2-10 
in quad input 3-10 

BREAK key C-2; F-3 

Busy files 10-14; A-4 

BYE 13-1 

Canceling input 1-4; C-2, 3; 

F-3 
Canonical representation (UCR) 

8-11 
Carriage control 8-10; D-2 
Carriage return 

character C-4 

key 1-4 

suppression 3-10 
CATALOG OVERFLOW - FILES A-5 
CATALOG OVERFLOW - SIZE A-5 
CATALOG workspace 11-1 

I Category of files 8-8; 9-3; 
10-6; 13-4 
Catenate function 6-9 
CATLIST command 13-3 
Ceiling function 4-2; 4-4 
Central processor time 8-13; 

8-19; 12-5,6 
CFPOS 10-12.1/12.2,13; A-4 
CFREAD 10-12; A-4 
CFWRITE 10-12; 10-12.1/10-12. 2; 

A-4 
CHANGE command 8-8; 10-6; 

13-3,4 
CHANGE TO READ -ONLY FILE A-4 
CHANGES documentation 11-2 
Character constants 3-1,3 
Character data 

density in files 10-15 
Character set 
UAV 8-19 

and CFWRITE 10-12 
for coded files 10-11 
| tables C-1,11 
Character type 6-5 
Check protect 8-24 
Circular functions 4-3; 4-5 
) CLEAR 8-7; 8-15; 9-1; 10-14 
Clear workspace 8-7; 8-15 
CLEAR WS 1-3 

CLIST (to list coded files) 
10-17 



Closing function definition 

2-3 
CMAP 10-18 

Coded files 10-1; 10-11,13; 
10-15; C-l 
character set C-1,11 
creating 10-8 
indicated by FSTATUS 10-9 
listing 10-17 
repositioning 

10-12.1/10-12.2; 10-13 
Coded file read (CFREAD) 10-12 
Coded file write (CFWRITE) 

10-12, 10-12.1/10-12.2 
Colons and CFWRITE 10-12,12.1 
Column coordinate 5-1 
Combinations— of function 4-3; 

4-5 
Comments 3-1 , 2 
Comparison tolerance (UCT) 
8-10 
and floor and ceiling 4-4 
and grade up and grade down 

6-8 
and IMPLICIT ERROR A-1,2 
and matrix inverse 6-23 
and power function 4-5 
and relational functions 

4-5,6 
default value for 8-6 
in clear workspace 8-7 
Compress function 6-10,11; 

12-4 
Composite functions 7-1 
Connect time 8-19 
Constants 3-2,3; 12-6 
Constant vector 3-2 
Context editing 2-5,7 
Control card for APL D-1,4 
Conversion between number 

systems 6-18,19 
UCOPY 8-11; 8-15; A-l 
)C0PY 9-3 

Copying APL files 10-16,17 
COR terminal type C-2, 3; D— 1; 

F-1,3 
Correcting typing errors 1-4; 

C-2, 3; F-3 
Correspondence terminals 
C-2, 10; D-l; F-1,3 
Cosine function 4-3; 4-5 
CPU time 8-13; 8-19; 12-5,6 
UCR 8-11; A-l 
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Creating files 10-12,14 

CRT terminals 8-9,10 

CSUBMIT 10-13; 13-4; A-4; D-3 

OCT 8-10 

and floor and ceiling 4-4 
and grade up and grade down 

6-8 
and IMPLICIT ERROR A-1,2 
and matrix inverse 6-2 3 
and relational functions 

4-5,6 
default value for 8-6 
in clear workspace 8-7 

Data rate C-2; C-5 

Deal function 6-7,8; 8-11; A-l 

Decimal format for output 
6-21,22; B-l 

Decode function. See Base 
, value function 

DEFN ERROR 2-3; A- 3 

*DEL* 1-4; A- 7 

Delay (DDL) 8-20 

Deleting function lines 2-4 

DESCRIBE documentation 11-2 

DEVICE NOT READY A- 5 

DEVICE RESERVED A- 5 

DEVICE STATUS ERR. A-5 

Diamond symbol (line separator) 
2-7 

digits 3-2 

Digits for output. See 
Printing precision 

) DIGITS. See DPP 

Dimensions of an array 5-1 

Direct access files 10-13,15 
creating with FCREATE 10-8 
indicated by FSTATUS 10-9 
integrity of 10-16 

Direct access workspaces 8-8 

Disconnect 

and busy files 10-14 
and lost space 10-15 
and storage statistics 
10-16 

Disk storage space 12-3,4 

Display of arrays 5-2,3 

Displaying functions 2-4 

Distinguished names 8-12 

Divide function 4-2 

DDL 8-20 

Documentation standards 
11-2,3 



DOMAIN ERROR 6-23; 7-2; 8-1; 

A-2; E-l 
Domino functions. See Matrix 

divide or Matrix inverse 
Double entry format 8-23 
UDROP 8-15 
)DR0P 9-3 

Drop (primitive function) 6-13 
Dyadic format 6-22,23 
Dyadic functions 3-4 
Dyadic save 8-14 
Dyadic transpose 6-16,18; A-l 

EBCDIC terminals F-2 
Echo input option D-2 
Editing of functions 2-1,8 
Efficiency 

for APL programs 12-1,6 
for files 10-15,16 
Encode. See Represent function 
End of information, file, 

record 10-11,13 
ENQUIRE command 10-13; 13-4 
DENV 8-7; 8-11; A-l 
Environment control (D£W) 

8-7; 8-11; A-l 
Equals function 4-3; 4-5,6; 

A-l 
Equals symbol for operating 

system commands 13-1; 

F-2 
) ERASE 9-3 
Erasing direct access files 

{FERASE) 10-14 
Erasing files and workspaces 

8-15 
Erasing functions and variables 

8-11,12; 9-3 
UERR 8-7; 8-17,18 
Error matrix {UERR) 8-7; 

8-17,18 
Error messages A-l, 7 
Error processing 8-16,18 
Error trapping 8-16,18 
Escape from function definition 

2-7 
UEX 8-11,12; A-l 
Exception rules 6-1; 6-5 
EXCHANGE PACKAGE A^6 
Execute function 6^-20; 8-16 
Execution of functions 2-8,11 
Expand function 6-11,12 
exponent 3—3 
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Exponential format for output 

6-22; 8-21; B-l 
Exponential function 4-2 
Exponential notation for 

constants 3-3 
expression 3-7 
Expunge {HEX) 8-11,12; A-l 
Extending function lines 2-5 
UEX TRACT 8-24 

Factorial function 4-3 

Family identifier 1-2 

FCOPY 10-16,17 

F CREATE 10-8; 10-12,14 

UFD 3-2 

FDX C-5 

F ERASE 10-10 

FFREE 10-8 

UFI 10-4,5; 10-7 

Field length 8-19,20; 12-2,3; 

D-3 
File access information 13-3 
File create 10-8; 10-12,14 
FILE DAMAGE A- 4 
File efficiency 10-15,16 
File erase 10-10; 10-14 
File integrity 10-16 
FILE LIMIT A- 6 
File limits 10-3 
File marks in coded files 

10-11,13 
File names 8-16; 10-5; 10-10 
File numbers 10-10 
File passwords. See Passwords 
File positioning 10-8; 

10-12,13 
File read 10-8 
File record delete 10-8 
File return 10-10 
File sizes 8-16; 10-9; 10-15,16 
File status 10-8,9 
File submit 10-13 
File system 10-1,18 
File tie 10-11; 10-14 
FILE TIE ERROR A- 4 
FILE TOO LONG A-6 
File type 8-16 
File untie 10-10; 10-14 
File write 10-8 
FILES 2 workspace 10-16,18; 

11-1 
FILESYS workspace 10-1,18; 

11-1 
Fix (UFX) 8-11 



Floor function 4-2; 4-4 

FMAP 10-18 

FN AMES 10-10 

)FNS 9-4 

FN VMS 10-10 

FORCED ERROR A-6 

Format for array output 5-2,3 

Format for normal output B-l 

Format functions 

T 6-21,23 

UFRMT 8-20,24 
Format phrases 8-21 
FPOS 10-7,8 
FRDEL 10-8; 10-15 
FREAD 10-8; A-4 
Free record number 10-8 
FRETURN 10-10 
UFRMT 8-2 0,24 
FSTATVS 10-8,9 
FTIE J.0-10,11; 10-14 
Full ASCII terminals C-2,10 
Full duplex mode C-5 
Function classifications 3-3 
Function definition mode 

2-1,11; 3-2; 8-11 
Function execution 2-8,11 
Function header 2-1; 2-3,4; 

2-9,10 
Function names, form for 2-1 
6 681 FVNCTION RE J. A- 5 
Functions, user defined 2-1,11 

listing names of 8-12; 9-4 

storage requirements for 
12-4 
FVNTIE 10-1.0; 10-14; A- 5 
Fuzz. See UCT 
FWRITE 10-8; 10-12; A-4 
UFX 8-11 

Gamma function 4-3 
Global environment 8-11 
Global variables 2-8 
Grade up and grade down 6-8; 

8-11; A-l 
Greater than function 4-3; 

4-5,6; A-l 
Greater than or equal function 

4-3; 4-5,6; A-l 
Groups 8-12; 9-1; 9-4 
)GR0VP 9-4 
)GRP 9-5 

GRP.D0C documentation 11-2 
)GRPS 9-4 



INDEX- 4 



60454000 E 



Half duplex mode C-5 

Halted function 2-9,11 

Halting execution 2-10; Ol,2 

HDX C-5 

Headers for functions 2-1; 

2-3,4 
HELLO command 13-1 
Heterogeneous output 3-9 
Histogram function 1-7 
Horizontal tabs 8-10 
HOW functions 11-2 
UHT 8-7; 8-10 
Hyperbolic functions 4-3; 4-5 

IAF log-on procedure 1-1,3; 

C-2,4 
Identity result from reduction 

7-2 
ILLEGAL USER ACCESS A- 5 
Immediate execution mode 1-4 
IMPLICIT ERROR 8-1; 8-6; A-l 
INDEX ERROR A- 2 
Index generator function 6-6; 

8-11; 12-4 
Index-of function 6-6; 8-11; 

A-l 
Index origin (UIO) 

8-10.1/8-10.2,8-11 
and clear workspace 8-7 
and grade up and grade down 

6-8 
and IMPLICIT ERROR A-l 
and index-of function 6-6 
and indexing 5-1 
Indexed selection 3-6; 5-5 
Indexed specification 3-6,7; 

5-6 
Indexed variables 3-6. See 

al so Indexed 

specification, Indexed 

selection 
Indirect access files 8-8; 

10-5; 10-9; 10-15 
Inner product 3-5; 7-1; 7-4,5 
Input file specification D-2,3 
Input using quote quad and quad 

2-11; 3-9,10; 8-16; C-2; 

F-3 
Inserting function lines 2-3 
Integer domain 8-10 
Integer format 6-22; 8-21 
Integrity of files 10-16 
Interrupt 8-17,18; C-2, 3; F-3 
INTERRUPT A-l 



Inverse of a matrix 6-23, 2 4 

UIO (Index origin) 

8-10.1/8-10.2,8-11 
and grade up and grade down 

6-8 
and IMPLICIT ERROR A-l 
and index-of function 6-6 
and indexing 5-1 
in clear workspace 8-7 

Italic notation 3-2,3 

Job submission 10-13 
Join function 6-5; 6-9 

Keying time 8-19 

Label variables 2-8 
Labels on statements 

and UERR 8-11 

and execute function 6-20 

form for 3-9 

and UFX 8-11 

and line renumbering 2-4 

and localization of 2-8,9 

and UNC 8-12 

and state indicator 2-9,10 

and symbol table 12-4 
Laminate function 6-9 
Largest record number 10-9 
Latent expression (ULX) 8-15 
ULC 8-18 

Least squares 6-24 
Left argument 3-7 
LENGTH ERROR 4-1; A-2 
Less than function 4-3; 4-5,6; 

A-l 
Less than or equal function 

4-3; 4-5,6; A-l 
ULIB. 8-15,16; 10-6 
)LIB 9-4 
Libraries of workspaces 8-8; 

8-14,16; 11-1,3 
Library list {ULIB) 8-15,16 
LIMIT ERROR 6-20; A-l 
LIMITS command 13-4 
line 3-9 
Line correction 1-4; C-2, 3; 

F-3 
Line editing 2-4 
LINE FEED key 1-4; C-3,4; F-3 
Line labels. See Statement 

labels 
Line printer translation 
C-6,11 
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Line separator 2-7 

Line timing controls (ULTIME) 

8-11,13 
Linear equations 6-23,25 
Listing coded files 10-17 
Listing user-defined functions 

2-4 
lists 3-8,9; 8-20 
Lists of names for system 

functions 8-7 
ULOAD 8-14,15; 9-3 
Local environment 8-11 
Local functions 2-8; 8-11 
Local system variables 8-1 
Local variables 

and UENV 8-11 

behavior of 2-8,9 

declaration of 2-3 

names of active 2-9,10; 
8-18; 9-4 
Location counter (ULC) 8-18 
BLOCK 8-11,12; A-l 
Locked functions 

and error processing 
8-16,18 

and UCR 8-11 

and HERE 8-17 

creating 2-11; 8-12 

for file security 10-7 
LOCKED OBJECT A-2 
Locked variables 

and statement labels 2-8 

and UNC 8-12 

creating 8-12 

for groups 9-1 
Logarithm 4-2 

Logging on 1-1,3; C-2,4; F-1,3 
Logging off 1-8; 8-20 
Logical representation 10-15; 

12-3 
Lost space in files 10-9; 

10-15 
ULTIME 8-11,13; A-l 
ULX 8-15 

Magnitude function 4-3 
Magnitude range for numbers 

E-l 
Matrix 5-1 

Matrix divide 6-24,25 
Matrix inverse 6-23,24 
Matrix product 7-4,5 
Matrix transpose. See Monadic 

transpose 



Maximum field length 8-19,20; 

12-2,3; D-3 
Maximum function 4-2 
Membership function 6-7; A-l 
Memory space. See Storage 

requirements 
Minimum field length 8-19,20; 

12-2,3; D-3 
Minimum function 4-2 
Minus, see Subtraction, 

Additive inverse, or 

Negative symbol 
MIXED FUNCTION A-3 
Mixed functions 5-1,6; 6-1,25 
Modes 10-6; 10-11; 10-14,15; 

13-3,4 
Modify mode 13-3 
Modulus . see Residue 
Monadic format function 

6-21,22 
Monadic functions 3-4 
Monadic transpose 6-15,16 
Multiplication 4-2 

NAM log-on procedure 1-1,3; 

C-2,4 
Name class .3-4; 8-11,12; A-l 
NAME IN USE A-3 
Name list (UNL) 8-11,12; A-l 
Name list for stored workspaces 

(UNAMES) 8-11; 8-15 
Name lists for system functions 

8-7 
NAME NOT FOUND 8-11; A-3 
Name of active workspace 8-14 
Names 

and spaces 3-1 

for files 10-5 

for workspaces 8-8 

lists of, for system 
functions 8-7 

of tied files 10-10 
Names of files, changing 13-3 
UN AMES 8-11; A-l; 8-15 
NAND function 4-3 
Natural logarithm 4-2 
UNC 3-4; 8-11,12; A-l 
Nearest integer 8-10 
Negative symbol 3-3 
Niladic branch 2-10; 3-7; 3-9 
Niladic functions 3-4 
NINT (nearest integer) 8-10 
UNL 8-11,12; A-l 
NOR function 4-3 
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Not equal function 4-3; 4-5,6; 

A-l 
NOT function 4-3 
Not greater than function 4-3; 

4-5,6; A-l 
Not less than function 4-3; 

4-5,6; A-l 
Number conversion 8-24 
Number system conversion 6-18 
Numbers of tied files 10-10 
Numeric constants 3-2,3 
Numeric conversion using format 

functions 6-^21,23; 

8-20,24 
Numeric output format B-l 
Numeric type 6-5 

Odometer order 5-3,4 

OFF (UTM request) 8-20 

)0FF 9-4 

One origin 5-1 

Open definition 2-3 

Operating system commands 13-1 

Operating system error messages 
A-4,6 

OPERATOR DROP A-6 

Operators 3-5; 7-1 

Optimization of APL programs 
12-1,6 

Order of evaluation 3-1; 
3-6,7; 5-6 

Ordering of array elements 
5-3,4 

OR function 4-3 

Origin (0J0) 8-11 

and grade up and grade down 

6-8 
and IMPLICIT ERROR A-l 
and index-of function 6—6 
and indexing 5-1 &-■ 
in clear workspace 8-7 

) ORIGIN. See UIO 

Outer product 3-5; 7-1; 7-4 



Output 

control 8-9 
conversion using format 

functions 6-21,23; 
8-20,24 
efficiency 12-6 
file specification D-2,3 
formatting 6-21,23; 

8-20,24; B-l 
implicit 3-9 
lists 3-9 
of arrays 5-2,3 
options D-2 

using quad and quote quad 
3-9,10 
OVERIDE CONDITION A-6 
Overriding line numbers 2-3 
Overs tr ike -1-5 
*0VL* A- 7 

Packing files 10-5 

Page eject 8-10 

PARAMETER ERROR A-6 

Parity C-5 

PARITY ERROR A- 5, 6 

PASSWOR command 13-2 

Passwords 

changing 8-8; -13-2 

for files 10-5,6 

for logging on J.- 3 

for workspaces 8-8 

specifying with F CREATE 
10-8 
Pendent functions 2-9,10 
Per-element time 12-5,6 
Permanent files 10-5 
PERMIT command 10-6; 13-4; 8-8 
PF UTILITY ACTIVE A- 5 
PHRASE NOT FOUND A-3 
Pi-times function 4-3 
UPL 8-7; 8-9,10 
Plane coordinate 5-1 
Plus function 4-2 
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Position of a file 10-7 
Positioning files 10-8; 

10-12,13 
Power function 4-2; 4-4 
DPP 8-6,7; 8-9; A-l 
PP ABORT A-6 

Precision of calculations E-l 
Preconversion of V and ) 3-2 
Primitive functions 3-4 
Print lines (DPL) 8-6,7; 

8-9,10 
Printer carriage control 8-10; 

D-2 
Printing precision (DPP) 

8-6,7; 8-9; A-l, 2 
Printing width (UPW) 3-10; 

8-6,7; 8-9 
Printing width (NAM) C-3 
Privacy of files 10-6 
Private files 8-8; 10-6 
Program libraries 8-14,16; 

11-1,3 
Prohibit prompt option D-2 
Prompt suppression D-2 
Protected copy 9-3 
PROTECTED WORKSPACE 13-6; A-3 
PSTATUS 10-9 

Public files 8-8; 10-6; 10-8 
Public libraries 11-1 
Purging files and workspaces 

8-15 
UPW 3-10; 8-6,7; 8-9 

Quad input and output 2-11; 

3-9,10; 8-16; C-1,2; 
Qualifiers for format 8-22,23 
Quotes in constants 3-3 
Quote-quad input and output 

2-11; 3-9,10; C-1,2 

Radices 6-18 

Random link 8-7; 8-10.1/8-10.2 

Random number functions 6-7 

RANK ERROR 4-1; 8-1; A-2 

Rank of an array 5-1; 5-4 

Ravel function 5-4 

Read mode 10-6; 10-11; 

10-14,15; 13-3 
Read-modify mode 10-7; 10-11; 

10-14,15; 13-3 
READY light 1-2 
Reciprocal function 4-2 
Record delete (FRDEL) 10-8 



Record marks in coded files 

10-11,13 
Record number, largest 10-9 
Record numbers 10-5,6 
Records 10-1 
RECOVER 10-14,15; 13-2 
Recursive functions 8-13 
Reduction 3-5; 7-1,2 
Regression coefficients 

6-24,25 
Relational functions 4-3; 

4-5,6; A-l 
Remainder, see Residue 
Removing function lines 2-4 
Renumbering function lines 2-4 
Repetition count for context 

editing 2-6 
Report formatting function 

8-20,24 
Repositioning files 10-8; 

10-12,13 
Represent function 6-19,20 
Residuals 6-24,25 
Residue function 4-3; 4-5 
Response time 12-2 
Restarting execution 2-10 
Result variable 2-1; 2-8,9; 

3-4,5 
RETURN key 1-4 
Returning files 10-10 
Reverse function 6-14 
Revising functions 2-3,7 
Revising input 1-4; C-2,3 
Rewind 10-13 

URL 8-7; 8-10.1/8-10.2; A-l 
Roll function 4-3; 8-11; A-l 
Rotate function 6-14,15 
Row coordinate 5-1 

S, number 13-3 

US AVE 8-14; A-l 

)SAVE 9-3 

Scalar arrays 5-rl 

Scalar extension 6^5 

Scalar functions 4^-1 

Scan functions 3-5; 7-1; 7-3,4 

Scientific notation for 

constants 3-3 
Scientific notation for output 

6-22; 8-21; B-l 
Sealing workspaces 13-6 
Security of files 10-6 
Security of workspaces 13-6 
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Seed. See URL 

Selectric terminals 1-1; 1-3; 

C-2,4; D-l 
Semantics for APL statements 

3-1,10 
Semiprivate files 8-8; 10-6; 

10-8 
Sequential file operations 

10-7 
Session variables 8-7 
SETTL command 13-3 
Setup time 12-5,6 
Shape of an array 5-3,4 
Shared files 10-14,15 
Shifted output option D-2 
Shortcuts in function editing 

2-7 
)SI 2-9,10; 9-4 
SI DAMAGE 2-10; 8-11; A-3 
Significant digits for output 

8-9 
Signing off. See Logging off 
Signing on. See Logging on 
Signum function 4-2 
Sine function 4-3; 4-5 
US IV 8-18 

)SIV 2-9,10; 9-4; 8-18 
Size function 5-4 
Sizes of files 8-16; 10-9; 

10-15,16 
Skip record, file, or to end 

10-12,13 
Sorting 6-8 

SOURCE documentation 11-2 
Space requirements. See 

Storage requirements 
Spaces 3-1 

Special editing mode C-3 
Specification. See Assignment 

or Indexed specification 

5-6 
Square root. See Power 

function 
SRU 8-19 

*SRU LIMIT* 13-3; A-7 
Standards for programs 11-1,3 
State indicator 2-9,11; 8-18; 

9-4 
State indicator damage 2-10; 

8-11; A-3 



Statement labels 

and execute function 6-20 

and UFX and UCT 8-11 

and line renumbering 2-4; 

8-11 
and symbol table 12-4 
form for 3-9 
in SIV display 2-9,10 
localization of 2-8,9 
Status Of files {FSTATUS) 

10-8,9 
USTOP 8-11,13; A-l 
Stop controls 2-11; 8-11,13 
Stopping function execution 

2-10; C-1,2 
Storage requirements 
and WA 8-19,20 
in files 10-15,16 
in workspaces 12-2,4 
Stored files 10-5 
Stored workspaces 8-8 
Submitting batch jobs. See 

C SUBMIT 
SUBSYSTEM ABORT A-6 
Subtraction function 4-2 
Suspended functions 2-9,11; 

3-7 
DSY 3-2 

Symbol table size 12-4 
SYNTAX ERROR 6-5; A-l 
Syntax for APL statements 

3-1,10 
) SYSTEM 9-4 

SYSTEM IUTM request) 8-20 
SYSTEM ABORT A-6 
System commands 2-1; 3-2; 

8-11; 9-1,5 
System functions 3-3; 8-1,24 
System Resource Units 8-19 
System variables 3-5; 8-1,24 

1 r number command 13-3 

Table lookup 7-5 

Tabs 8-10 

Tails in files 10-9; 10-15 

Take function 6-12,13 

Tangent function 4-3; 4-5 
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Telephone disconnect 

affects storage statistics 

10-16 
and busy files 10-14 
and lost space 10-15 
and RECOVER command 13-2 

Teletype terminals D-2; F-l 

Terminal mode (D2W) 8-20 

Terminal switch settings C-4,5 

Terminal type (D2T) 8-7; 8-19; 
D-1,2 

Terminal type 

specification of D-1,2 

Terminal types C-1,11; D-1,2; 
P— 1 3 

Tied files 10-3,4 

*TIME LIMIT* 13-3; A- 7 

TIME LIMIT A- 6 

Time stamp (UTS) 8-7; 8-19 

Timing controls 2-11; 8-12,13 

Timings, table of 12-6 

Times function 4-2 

UTM 8-20 

UTBACE 8-11,13; A-l 

Trace controls 2-11; 8-11,13; 
A-l 

TRACK LIMIT A- 6 

Translation for input and 

output C-1,11; D-1,3 

Translation tables C-l; C-6,11 

Transpose functions 6-15,18; 
A-l 

DTEAP 8-17,18; 10-7 

Trap line 8-17,18 

0TS 8-7; 8-19 

UTT 8-7; 8-19; D-1,2 

TT=713 terminal type C-2,3; 
C-6,11; D-2; P-2 

TTY33 terminal type C-3; D-2 

TTY383 terminal type D-2; 
F-l, 2 

Type of an array 6-5 

Types of files 8-16 

TYPE terminal type D-l; F-l 

Typewriter-pairing terminals 
D-l; F-l 



)UC0PY 9-3 

UNDEFINED FUNCTION A- 3 

UNLOCK key 1-2 

Unprotected copy 9-3 

Unquote function, see Execute 

function 
Untie for files 10-10; 10-14 
Unused space 10-9; 10-15 
User defined functions 2-1,11; 

3-4 
User name ? 

for logging on 1-2. 

See also Account number 

Vacant list elements 3-8 

value 3-6 

VALUE ERROR 3-4; A-2; 3-5 

Variable name replacement 2-6 

Variable names 3-5 

Variables 1-5 

Variables, names of defined 

9-4 
)VARS 9-4 
Vector 1-5; 5-1 
Visual fidelity 1-4 

UWA 8-7; 8-19,20; 12-2,3; A-3 

Weightings 6-18 

) WIDTH. See UPW 

Working area (UWA) 8-7; 

8-19,20; 12-2,3 
Workspace 1-7 
Workspace identification 

(UWSID) 8-14 
Workspace names 8-14; 8-8; 

8-14,15 
Workspace size. See Field 

length 
Write mode 10-6; 10-8; 

10-14,15; 13-3 
WRONG TYPE FILE A-4 
WS FULL 8-19,20; 12-2,3; A-3 
WS NOT FOUND A-3 
WSID 8-14; A-l; A-5 

Zero origin 5-1 



INDEX- 10 



60454000 E 



COMMENT SHEET 

MANUAL TITLE: CDC APL Version 2 Reference Manual 

PUBLICATION NO.: 60454000 REVISION: F 
NAME: 



COMPANY:. 



STREET ADDRESS:. 



CITY: STATE: ZIP CODE: 



This form is net intended to be used as an order blank. Control Data Corporation welcomes your evaluation of 
this manual. Please indicate any errors, suggested additions or deletions, or general comments below (please 
include page number references). 

1_J Please reply Lj No reply necessary 



O 

z 

O! 






< 

3 | 

z ! 



> i 



NO POSTAGE STAMP NECESSARY IF MAILED IN U.S.A. 

< ! 

< I FOLD ON DOTTED LINES AND TAPE 



TAPE 



TAPE 



FOLD 



FOLD 




NO POSTAGE 

NECESSARY 

IF MAILED 

IN THE 

UNITED STATES 



FIRST CLASS 



BUSINESS REPLY MAIL 

PERMIT NO. 8241 MINNEAPOLIS, MINN. 



POSTAGE WILL BE PAID BY 

CONTROL DATA CORPORATION 

Publications and Graphics Division 
215 Moffett Park Drive 
Sunnyvale, California 94086 




o 

z 
o 






FOLD 



FOLD 



TAPE 



TAPE 



-" 


TABLE OP DISTINGUISHED 


FUNCTIONS AND VARIABLES 





RAKE. 


KKAS.LS.G. 


P.AQ.K 


HAKE 


KMUM 


EAG.E 


DISTINGUISED VARIABLES 


UAI 


ACCOUNTING 


8-19 


UAV 


ATOMIC VECTOR 


8-19 


UCT 


INFORMATION 
COMPARISON TOLERANCE 


8-10 


UHT 
UENV 


TAB SETTING 
ENVIRONMENT CONTROL 


8-10 
8-11 


UERR 


ERROR MESSAGE 


8-17 


UIO 


INDEX ORIGIN 


8-10.1 


ULC 


LOCATION COUNTER 


8-18 


ULX 


LATENT EXPRESSION 


8-14 


UPL 


PRINT LINES 


8-9 


UPP 


PRINT PRECISION 


8-9 


UPW 


PRINT WIDTH 


8-9 


URL 


RANDOM LINK 


8-10.1 


UTS 


TIME STAMP 


8-19 


UTT 


TERMINAL TYPE 


8-19 


UWA 


WORKSPACE AVAILABLE 


8-19 


UWSID 


WORKSPACE IDENTIFIER 


8-13 


DISTINGUISHED FUNCTIONS 


UCOPY 


PROTECTED COPY 


8-15 


UCR 


CANONICAL 
REPRESENTATION 


8-11 


DDL 


DELAY EXECUTION 


8-20 


UDROP 


DROP PERMANENT FILE 


8-15 


DEX 


EXPUNGE 


8-12 


UFI 


FILE SYSTEM FUNCTION 


SEC 10 


UFRMT 


FORMATTING FUNCTION 


8-20 


UFX 


FIX FUNCTION 


8-11 


ULIB 


LIBRARY 


8-15 


ULOAD 


LOAD WORKSPACE 


8-14 


ULOCK 


LOCK OBJECTS 


8-12 


ULTIME 


SET TIMING VECTOR 


8-13 


UN AMES 


NAME LIST 
FROM SAVED WS 


8-15 


UNC 


NAME CLASS 


8-12 


UNL 


NAME LIST 


8-12 


USIV 


STATE INDICATOR 
WITH VARIABLES 


8-18 


US TOP 


SET STOP VECTOR 


8-13 


USAVE 


SAVE WORKSPACE 


8-14 


UTM 


TERMINAL MODE 


8-20 


UTRACE 


SET TRACE VECTOR 


8-13 


Utrap 


SET ERROR TRAP 


8-18 









TABLE 


OF FILE 


SYSTEM FUNCTIONS 




B.AHK 


HEAS.LS.G. 


P.AQ.R 


B.A&K 


KMB.Z8JL 


IAQ.E 


FCREATE 


CREATE FILE 


10-8 


FWRITE 


RANDOM RECORD WRITE 


10-8 


FREAD 


RANDOM RECORD READ 


10-8 


FRDEL 


RANDOM RECORD DELETE 


10-8 


FFREE 


GET FIRST FREE 
RECORD NUMBER 


10-8 


FPOS 


SET FILE POSITION 


10-8 


FSTATUS 


GET FILE STATUS 


10-8 


PSTATUS 


PRINT FORMATTED 


10-9 


FNAMES 


GET FILE NAMES 


10-10 




FILE STATUS 




FUNTIE 


UNTIE FILES 


10-10 


FNUMS 


GET FILE NUMBERS 


10-10 


FERASE 


ERASE ACTIVE FILES 


10-10 


FRETURN 


RELEASE ACTIVE FILES 


10-10 


FPACK 


PACK FILE 


10-11 


FTIE 


TIE A PERMANENT FILE 


10-10 


C FREAD 


READ CODED FILE 


10-12 


CFWRITE 


WRITE TO CODED FILE 


10-12 


CFPOS 


POSITION CODED FILE 


10-12.1 


CSUBMIT 


SUBMIT BATCH JOB 
FROM A CODED FILE 


10-13 
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